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Der neue 
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PC ist da 
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Der neue Schneider ist da. 
Dies ist eine Nachricht, 
die wir Ihnen mit einem 
weinenden und einem 
lachenden Auge präsentie- 
ren. Der Rechner dürfte 
zu den besten Geräten 
gehören, die unter dem 
Betriebssystem MS-DOS 
auf dem Markt zu finden 
sind. Wie wir es von der 
Firma Schneider schon ge- 
wohnt sind, stimmt auch 
der Preis, er ist für ein 
Markengerät relativ nied- 
rig. Dies alles können Sie 
in einem Kurzbericht nach- 
lesen, aber wo bleibt das 
weinende Auge? 

Da ist zuerst einmal die 
Methode des Modellwech- 
sels, die wir mal als 
„Nacht- und Nebelaktion” 
bezeichnen möchten. 
Lesen Sie mehr dazu in 
unserem Kommentar. 
Auch über die Informa- 
tionspolitik der Firma 
Schneider sind wir nicht 
sehr glücklich. Zwar wuß- 
ten wir (wie viele andere 
Presseorgane) etwas früher 
von der Neuigkeit, waren 
jedoch bis zur offiziellen 
Pressekonferenz zu Still- 
schweigen verpflichtet. 
Dies wäre kein guter Dienst 
an unseren Lesern gewe- 
sen, die sich vielleicht 
gerade in diesen 6 Wochen 
für ein altes Gerät entschie- 
den hätten, aber was soll- 
ten wir tun? An die Infor- 
mationen zu diesem Ge- 
rät kamen wir eben nur 
mit der Zusicherung, die- 
se geheimzuhalten. Wir 
bitten dafür um Ihr 
Verständnis. 

Im Grunde genommen 
waren wir recht froh, daß 


die PC Woche in Ihrer Aus- 
gabe vom 4. Juni das 
Schweigen brach. Sie er- 
hielt in Atlanta Kenntnis 
vom PC 1640. Die 
„Plaudertasche’’ war 
Alan Shugar höchstper- 
sönlich. Bleibt die Frage, 
nach dem Sinn der 
Pressesperre. Während sich 
die Firma Schneider 
streng daran hält und der 
größte Teil der Presse, 
um der guten Zusammen- 
arbeit willens, diese Sperre 
respektiert, werden in 
Atlanta die wildesten 
Gerüchte gehandelt. 
Mittlerweile darf auch in 
Deutschland wieder ge- 
schrieben werden und 
wir kommen natürlich 
sofort unserer Informa- 
tionspflicht nach. 
Allerdings müssen wir 
uns mit einer Produktbe- 
schreibung begnügen. 
Zum jetzigen Zeitpunkt 
stehen selbst der Firma 
Schneider nur drei 

Geräte zur Verfügung. 


GANZE DREI 
GERÄTE 


Zu wenig, um den Redak- 
tionen ein Testgerät über- 
lassen zu können. Wir 
hoffen jedoch, daß wir 
bereits an einem kriti- 
schen Testbericht sitzen, 
wenn Sie dies hier lesen. 
Ein wenig Unmut kam 
bei uns auf, als wir von 
der Produktionseinstel- 
lung des PC 1512 erfuh- 
ren. Lesen Sie auch zur 
Modellpflege der Firma 
Schneider ein paar kriti- 
sche Worte. 

Nun zu einem wesentlich 
erfreulicherem Thema. 
Unsere Titelbilder schei- 
nen Ihnen zu gefallen. 

So antworteten jeden- 
falls alle, die wir wäh- 
rend unseres Telefondien- 
stes danach fragten. 
Gegenfrage war immer: 
„Von wem sind die Ori- 
ginal-Siebdrucke?” 

Die Künstler, die sich mit 
großem Engagement dem 
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Thema Computer wid- 
men, heißen: Sybill und 
Ricardo Areco. 

Einige fragen uns aller- 
dings auch, ob es diese 
Drucke in einer limitier- 
ten Auflage gibt. Wir sind 
dafür allerdings die fal- 
sche Adresse, denn die 
Entscheidung fällt unser 
Verleger zusammen mit 
den beiden Künstlern. 
Die Anregung haben wir 
natürlich sofort weiterge- 
geben und werden Sie 
über den weiteren Verlauf 
informieren. 

Unser Telefonservice hat 
sich mittlerweile bei allen 
Lesern herumgespro- 
chen. Auch der Termin 
an jedem Montag zwi- 
schen 15 und 19 Uhr liegt 
genau richtig. Alle Pro- 
bleme, die an einem Wo- 
chenende (wann hat man 
sonst Zeit, sein Hobby zu 
pflegen?) auftreten, sind 
noch frisch im Kopf und 
können besprochen wer- 
den. Die Folge ist, daß 
unsere zwei Amtsleitun- 
gen dem Ansturm nicht 
mehr gewachsen waren. 
Was sich für uns als klei- 
nes Problem darstellte, 
war für die Post eine Rie- 
sensache. Wir benötigten 
wieder einmal neue Num- 
mern. Ab Mitte Juni 

— der genaue Zeitpunkt 
stand bei Redaktions- 
schluß noch nicht fest — 
erreichen Sie unsere Hot- 
line unter 089/1840 24. 
Dann haben wir vier 
Leitungen, die automa- 
tisch weiterschalten. 

An den Zeiten hat sich 
selbstverständlich nichts 
geändert. In der Redak- 
tion kursiert neuerdings 
folgender Spott: Wenn 
wir im bisherigen Tempo 
unsere Telefonanschlüsse 
weiterhin ändern, lohnt 
sich bald ein Sonderheft 
der beliebtesten Nummern. 
Hoffen wir, daß es dazu 
nicht kommen muß. Bei 
diesem Heft wünsche ich 
Ihnen viel Spaß und viele 
Informationen für Ihr 
Hobby. Gert Seidel 
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DER SCHNEIDER 
PC IST TOT!ES 
LEBE DER 
SCHNEIDER PC! 


Das Ankündigungsverhalten einiger Mitbewerber führte laut 
Bernhard Schneider dazu, daß bereits am 29.6.1987 eine offizielle 
Vorstellung des neuen PC 1640 stattfand. Zwar wurden keine Namen 
genannt, aber es ist ganz klar, daß der Commodore PC 1 und der Atari PC 
eine ernstzunehmende Konkurrenz im Bereich der Low-Cost PCs wer- 
den. Die beiden Firmen bauen von Anfang an auf eine bessere Grafik, 
die in dieser Preisklasse schon beim Homecomputern mehr als selbstver- 
ständlich ist. Einige Schwierigkeiten verzögern jedoch die Markteinführung 
der Konkurrenz. Bevor also andere Hersteller dem ‚‚Grafikschwächling‘’ 
PC 1512 den Garaus machen, hat Schneider ihn selbst gekillt. 
Nachdem innerhalb von 8 Monaten 100000 Geräte des PC 1512 verkauft 
sind, wechselt Amstrad/Schneider das Produkt. Um es vorauszuschicken: 
Es bleibt unklar, ob der PC 1512 weiterhin gebaut wird. In den Geschäften 
wird man ihn allerdings noch eine Weile sehen. 


Wer nicht genau hinschaut, wird den 
„Neuen“ gar nicht erkennen. Das 
Gerät ist nach wie vor in der kom- 
pakten Größe gebaut, bietet aber an 
den oberen Kanten der Zentralein- 
heit reichlich Lüftungsschlitze. 
Warum weiß niemand, es gab ja 
keinerlei Wärmeprobleme. Die Vor- 
sichtsmaßnahme wurde wohl 

nach dem Motto ‚‚Schaden kann es 
nicht“ getroffen. Nach wie vor ver- 
richtet das Netzteil seinen Dienst 

im Monitor. Auch die Spötter, die 
da meinten, aus dem überschüssigen 
Plastikmaterial der Zentraleinheit 
könne man die Maus anfertigen, ha- 
ben Unrecht. Am PC 1640 hat man 
nicht gespart, wie wir uns bei einer 
ersten Inaugenscheinnahme überzeu- 
gen konnten. Der 20 MByte-Festplat- 
te in der Luxusversion traute man 
jedoch nicht. Hier wird ein zusätz- 
licher Ventilator installiert, um ab- 
solute Sicherheit vor dem befürchte- 
ten Wärmestau zu haben. 


MINIMUM 640 KBYTE SPEICHER 


Alle Versionen des neuen PC 1640 
werden, wie es der Name schon ver- 
rät, mit 640 KByte RAM ausgestat- 
tet. Softwareproduzenten stellen 
heute schon recht hohe Anforde- 
rungen an die Speicherkapazität ei- 
nes Rechners (siehe 1st-Word-Plus). 
Da aber Speicherbausteine sehr we- 
nig Kosten, hat sich Schneider zu die- 


ser verkaufsfördernden Maßnahme 
entschlossen. Mehr an Speicher muß 
nunmehr mit einer Above-Card ge- 
kauft werden, ist aber nur selten 
nötig. 


HERCULES UND EGA — 
GARANTEN FÜR HOHE 
BILDSCHIRMAUFLÖSUNG 


Ein integrierter Multifunktions- 
Grafik-Adapter, kurz MICA genannt, 
zaubert demnächst eine bessere Gra- 
fik auf den Bildschirm. Er ist in der 
Lage, den Hercules Modus mit 

720 x 346 Bildpunkten, den OGA- 
Modus mit 320 x 200 (4 von 16 
Farben) oder 640 x 200 (2 von 16 
Farben) und den EGA-Modus mit 
640 x 350 (bei 16 Farben) anzu- 
sprechen. Diese Multi-Grafikkarte 
kann dabei auf einen Paradise Chip 
zurückgreifen, der seine Daten aus 
256 KByte Bildschirmspeicher be- 
zieht. Mit welchem Grafik-System 
der Rechner gefahren wird, hängt 
von der Dip-Schalter-Einstellung 
an der Rückseite der Zentralein- 
heit ab. 

Da wir gerade beim Innenleben des 
PC sind, sollte festgestellt werden, 
daß sich kaum etwas geändert hat. 
Es bleibt beim schnellen 8086 
Prozessor, der im Gegensatz zu sei- 
nem Vorbild, dem 8088, als echte 
16-Bit-CPU gilt. Zudem wird er 
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noch mit 8 MHz getaktet. Auch an 
der — gegenüber einem Akku — 
preiswerteren Lösung einer batte- 
riegepufferten Uhr und Konfigura- 
tions-RAM hat sich nichts geän- 
dert. Die technische Billiglösung 
wurde bei der Kundschaft des PC 
1512 angenommen. 


LETZTE KINDERKRANKHEITEN 


BEREINIGT 


Besonders mit den grafischen Mög- 
lichkeiten hat Schneider nun end- 
lich einen brauchbaren PC vorgelegt. 
Bisher kränkelte das System an der 
schlechten Bildschirmauflösung, die 
sich gerade unter GEM bemerkbar 


machte. Flappsig könnte man fest- 
stellen, daß die Türkheimer Firma 
endlich aus dem Schneider ist. 

Bei der Entwicklung des PC 1512 
verlief nicht alles reibungslos. Beson- 
ders die Benutzerführung unter GEM 
vertrug sich nicht mit den Eigenhei- 


LUXUSKONFIGURATIONEN 
WERDEN ZUERST 
AUSGELIEFERT 


ten des Rechners. Erst Mitte Mai 
konnten die letzten Fehler ausge- 
merzt werden. Die Kompatibilität- 
Versuche verliefen seitdem sehr 
zufriedenstellend. 

Wie immer gibt es die Schneider 


REPORT 


PCs in mehreren Konfigurationen. 
Die Software-Beigaben, DOS-Plus, 
MS-DOS 3.2, GEM und Basic, 

sind zwar immer die gleichen, doch 
die Hardware-Ausstattung ändert 
sich je nach Preisgruppe. Die preis- 
werteste Lösung stellt die Konfigu- 
ration mit einem Laufwerk und 
monochromen Bildschirm dar. Diese 
wird schon für 1698,— DM zu haben 
sein, allerdings erst ab September. 
Schneider legt mehr Wert auf die 
sofortige Auslieferung der EGA-Rei- 
he, also jener Geräte, die mit einem 
EGA-kompatiblen Farbbildschirm 
ausgestattet sind. Hier liegt der un- 
terste Preis bei 2998,— DM (ein 
Laufwerk), das Spitzenmodell mit 
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20 MByte-Festplatte und einer Dis- 
kettenstation kostet 4498,— DM. 
Trotz des guten Preis/Leistungsver- 
hältnisses bleibt der Vorwurf, daß 
ein Laufwerk stolze 500,— DM 
kosten soll, ein Preis, der bei ande- 
ren Herstellern nicht mehr üblich 
ist. Vielleicht werden auf diese 
Weise einige Kalkulationsprobleme 
bei Schneider gelöst. 


WEITERE ÜBERRASCHUNGEN 
VON SCHNEIDER 


Eine unangenehme Neuigkeit vor- 

weg. Auf der Pressekonferenz vom 
29.6.87 blieb das Schicksal des PC 
1512 im Ungewissen. Niemand ver- 


stieg sich zu der Behauptung, der 


PC 1512 würde weiterhin produziert. 


Er wird sicherlich noch verkauft, 
das ist ganz klar. Die Feststellung 
der Computer-Woche, er würde 
aber nicht mehr vom Band laufen, 
wollte niemand so recht widerle- 
gen. Heißt es also Abschied nehmen 
von einem Computer, der Schneider 
immerhin einen Umsatz von 

100 000 Stück in nur acht Monaten 
brachte? 

Sicherlich wird bereits jetzt ein 
Preisverfall einsetzen, der die Her- 
stellung des ‚Oldies‘ unrentabel 
macht. Der Neue ist nun einmal da, 
und er ist besser. Die Folgerung ist, 
daß dem PC 1512 keinerlei Modell- 
pflege mehr zukommen wird. Auf 
einen Umbausatz zu einer EGA- 
Karte wird man vergeblich warten, 
ebenso wie auf einen besseren 
Monitor. In den nächsten Wochen 
kann man nur demjenigen zu einem 
PC 1512 raten, dem die angebotene 
Ausstattung für immer ausreichen 
wird. Vorausgesetzt, der Preisnach- 
laß gegenüber dem PC 1640 stimmt. 


Auch im Vertrieb hat sich Schneider 
einiges einfallen lassen, ob es gelingt, 


wird sich noch herausstellen müssen. 
Bislang hat die Türkheimer Firma 
mit dem CPC die Privathaushalte er- 
obern können und den PC 1512 mit 
stattlichen Stückzahlen zu den 
Selbständigen, Studenten, Schülern 
und Lehrern gebracht. Der neue 
EGA-PC zielt jedoch völlig auf den 


gewerblichen Markt. Um diesen ganz 


für sich gewinnen zu können, hat 
Schneider in Zusammenhang mit 
dem Softwarehaus KHK einen Koo- 
perationsvertrag geschlossen. Unter 
der Bezeichnung TOPcommerz 
(oder TOPline — so sicher ist man 
sich da anscheinend noch nicht) ver- 
kauft man nunmehr ein Komplett- 
Paket, bestehend aus Hardware, 
Software und Beratung. Gerade der 
letzte Punkt räumt dem Handel eine 
bessere Gewinnspanne ein. Die Soft- 
wareschulung soll maximal eine 
Woche dauern und vom örtlichen 
Händler durchgeführt werden. Für 
diesen, zusätzlich aber auch für den 
Endkunden richtet KHK-Software 
eine Hotline ein, um mit Rat zur 
Seite zu stehen. 

Es bleibt natürlich dem Kunden 
überlassen, ob er den Aufpreis für 
die Schulung zahlen will. Die Soft- 
ware wird preiswerter, wenn er auf 
den Kundenlehrgang verzichtet. 
Exakte Preise konnten noch nicht 
genannt werden, zumal es sich vor- 
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ANSTRAD Nicht-Fluchtiger Speicher 


ANSTRAD Nicht-Plüchtiger Speicher 


[ENTER] Taste Übersetzungswert 
[DEL+] Taste Übersetzungswert 


Jou 


stick Feuer Taste 


ihersetzusu 


Maus Tasten Übersetzung 


Maus Bewegungsmapstab 


Sehr deutlich zu sehen: Der Unterschied zwischen der Monitordarstellung des 1512 
— oberes Foto — und die ruhige, flimmerfreie Darstellung der Zeichen beim neuen 


1640 (unteres Bild). 


erst um drei verschiedene Program- 
me handelt. Im Angebot finden 
sich derzeit eine Finanz-Buchhal- 
tung, eine Auftragsbearbeitung mit 
Lagerwirtschaft und Fakturierung 
und eine Lohn- & Gehaltsabrech- 
nung. Ganz vorsichtig möchte man 
die Kosten je Programm mit 1500,— 
DM angeben. 

Wesentlich preiswerter ist das Da- 
teiprogramm GBase, welches gleich- 
zeitig mit der Pressekonferenz zur 
Auslieferung kam. Eine genaue Be- 
schreibung erübrigt sich an dieser 
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Stelle, Schneider aktiv hatte GBase 
bereits in der Ausgabe 6/87 vorge- 
stellt. 


Das Gegenteil eines Auslaufmodells 
praktiziert die Firma Schneider mit 
den 8-Bit-Homecomputern. Hier ist 
an ein Ende nicht zu denken, was 
sicherlich auch daran liegt, daß 
noch gar kein Ersatz in Aussicht 
steht. Der Verkauf der CPC-Modelle 
464 und 6128 wird also aufs neue 


IMAGE 
SHAPES 


DATADASE 


REPORT 


CONCORDE 


INTERACTIVE Bf N 
TERACTIVE ANMATION 


Foto oben: Ganz unten der Ventilator zur Kühlung der Festplatte. Unten links die 
Bildschirmspeicher-Bausteine, rechts daneben der quadratische Paradise-Chip. 
Foto darunter: Prachtstück des ‚Neuen” ist die Farbgrafik durch die EGA-Karte. 


forciert. Mittlerweile hat sich aller- 
dings das Image geändert. Aus dem 
Homecomputer der Spitzenklasse 
wurde die ideale Einsteigermaschi- 
ne. Da der Rechner allerdings ex- 
trem ausbaufähig ist (bis zu 512 
KByte), stört dies wohl keinen zu- 
künftigen Kunden. 


Zu den verkaufsfördernden Maßnah- 
men gehört wohl auch die Ankündi- 
gung eines BTX-Moduls,welches für 


den September 1987 geplant ist. 
Der Zusatz entstand in Zusammen- 
arbeit mit der Post und der Firma 
Siemens und soll das BTX-System 
endlich in die Haushalte bringen. 
Der Preis um die 300,— DM wird 
sicherlich kein Hindernis sein, je- 
doch bleibt die Frage, ob BTX 
nicht schon ‚,tot‘ ist. Der zukünfti- 
ge Erfolg des CPC wird also auch 
davon abhängen, was Schneider 
sonst noch zur Verkaufsstrategie 
einfällt. Wir dürfen gespannt sein. 
Auch noch für den CPC dürfte der 
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neue Drucker interessant sein. Hier- 
bei handelt essich um den DMP 
3160, der mit 160 Zeichen in der 
Sekunde bei der Matrix-Schrift aus- 
reichend schnell ist. Zwar verringert 
sich sein Tempo auf 40 Buchstaben 
wenn er in NLQ gefahren wird, aber 
ein 10-Zoll-Traktor und der niedri- 
ge Preis von 698,— DM machen dies 
mehr als wett. Viele haben wahr- 
scheinlich einen 24-Nadel-Drucker 
erwartet. Zwar ist noch kein Termin 
bekannt, aber auch solch ein Gerät 
wird kommen. Immerhin konnte 
Schneider bisher 80 000 Printer ver- 
kaufen und wird sich dieses Markt- 
segment nicht mehr wegnehmen 
lassen. 


Nehmen wir an, Sie wollen sich ei- 
nen PC kaufen. Jetzt, da Sie alles 
wissen, können Sie überlegen, ob 
die Konfiguration des Schlußver- 
kaufes vom PC 1512 Ihnen aus- 
reicht, denn Erweiterungen wird es 
kaum geben. Wenn ja, dann greifen 
Sie zu, solange der Preis stimmt. 
Diese Überlegungen hatten aber 
100 000 bisherige Kunden nicht. 

Sie kauften einen PC, der sicher 
Mängel hatte, dafür aber ein preis- 
wertes Markenfabrikat darstellte. 
Seine Fehler würde schon irgendein 
Hersteller mit Zusätzen korrigieren. 
Tatsächlich ist dies ja auch mit der 
Hercules-Karte geschehen und die 
Hoffnungen, daß es weiterginge, war 
nicht ganz unberechtigt. 

Plötzlich ist aber der ‚,‚Neue‘‘ da, 
und der PC 1512 interessiert keinen 
mehr. Es ist absolut egal, ob Ihnen 
der bestehende Systemausbau aus- 
reicht oder nicht, Nachschub lie- 
fert keiner mehr. Erst jetzt wird 
seine IBM-Kompatibilität auf die 
Probe gestellt, denn dies bleibt die 
einzige Bezugsquelle für irgendwel- 
che Erweiterungen. 

Als der Computer eingeführt wurde, 
dachte niemand daran, daß es so 
schnell einen Modellwechsel geben 
wird, auch Schneider nicht. Als man 
dort aber die ersten Pläne besprach, 
hätte man ehrlich sein sollen. 
Warum hat man ihn nicht aus Aus- 
laufmodell deklariert und den Preis 
gesenkt? Diese Frage darf man sich 
in Türkheim mit Recht anhören. 

So „ganz nebenbei“ erlebten wir bei 
der Vorstellung des neuen PC mit, 
wie in zumindest einer Computer- 
Zeitschrift ‚getestet‘ wird. Die 
Kollegen durften, wie wir, Anfang 
Juni einen Tag lang das Muster- 
Exemplar in Türkheim besichtigen. 
Ergebnis war dann in der darauf- 
folgenden Ausgabe ein mehrseitiger 
„Text‘‘ des Neuen. 


schneider ıneider" 
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THE ADVANCED 
CPC ART STUDIO 


Schneider-User schauen heimlich doch immer wieder einmal 
auf Programme wie „Degas’’ und „Paintworks”, die auf dem Atari ST 
laufen. Da kommt schon ein bißchen Neid auf, wenn man sieht, welche 
Grafikleistungen auf den 68000er-Rechnern möglich sind. Aber der 
CPC besitzt doch immerhin eine Auflösung von 640 x 400 (200) 
Punkten in seinem leistungsfähigsten Modus. Auch müßte es möglich 
sein, ein Programm so zu optimieren, daß ein Prozessor wie der Z80 
schnell damit fertig wird. Genau diese Gedanken hatten die Programmie- 
rer von Rainbird, bevor sie das Art Studio-Zeichenprogramm für den 
CPC umsetzten. Dem Werbesatz, es gäbe kaum etwas Vergleichba- 
res für den Schneider CPC, wollten wir gerne auf den Grund gehen. 


Grafikprogramme benötigen viel 
Speicherplatz. Nicht unbedingt für 
sich selbst, sondern für die Daten, 
eben die Bilder. Der komplette 
Bildschirmspeicher des CPC schluckt 
bereits 16 KByte. Das Programm war 
also nur für den CPC 6128 realisier- 
bar. Bleibt noch die Möglichkeit 
einer Speicherkarte. Hier bezogen 
sich jedoch die Programmierer auf 
das dk’tronics Produkt, welches in 
Deutschland allerdings nicht die 


GROSSE ENTTÄUSCHUNG: 
SPEICHERKARTE IST NICHT 
GLEICH SPEICHERKARTE 


gleiche Verbreitung hat wie die Vor- 
tex-Karte. Wer nun glaubt, Erweite- 
rung sei Erweiterung, der muß 
gleich zu Beginn enttäuscht werden. 
Es klappt nicht, die 64 K von Vor- 
tex bleiben ungenutzt. Am einfach- 
sten stellt sich die Arbeit auf dem 
6128 dar. Einziger dringend erfor- 
derlicher Zusatz ist ein Joystick und 
natürlich ein Drucker, falls man sei- 
ne Werke auf Papier besitzen will. 


FE: 
Die Diskette mit allen darauf befind- 
lichen Programmen ist nicht kopier- 
geschützt. Jeder ist also in der Lage 
sich mittels CP/M eine Arbeitskopie 
anzufertigen, oder er nutzt eine ent- 
sprechende Programmroutine. 
Schwieriger wird es da schon, wenn 
der Zeichenkünstler gestartet wird. 
Ein kleines Vorprogramm fragt nach 
einem bestimmten Wort in einer be- 
stimmten Zeile auf einer bestimm- 
ten Seite. Erst bei der richtigen Ein- 
gabe wird das Hauptprogramm nach- 
geladen. Raubkopierer haben im- 
merhin drei Versuche frei, das rich- 
tige Wort zu erraten, dann folgt der 
Reset. An und für sich ist gegen der- 
lei Programmschutz nichts einzuwen- 
den, ermöglicht er doch jedem eine 
Arbeitskopie. Man sollte dann je- 
doch etwas weiterdenken und das 
Handbuch übersetzen, damit es über- 
haupt jemand zur Hand nimmt. An- 
dernfalls entsteht schnell der Ein- 
druck, man spare sich die Mühe, 
um nicht auch das Passwort-Pro- 
gramm ins Deutsche übertragen zu 
müssen. 
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Nach geglücktem Start präsentiert 
sich Art Studio fast nur noch von sei- 
ner besten Seite. Die Bedienung sol- 
cher Menüzeilen dürfte mittlerweile 
klar sein, auch im CPC hat die Be- 
quemlichkeit schon lange Einzug ge- 
halten. Also: Feld ansteuern, Feuer- 
knopf drücken und aus dem Unter- 
menü Option auswählen. Normaler- 
weise sollten Sie an dieser Stelle eini- 
ge Anderungen der Standardpara- 
meter vornehmen, um anschließend 
ihre individuelle Einstellung abzu- 
speichern. Leider ist dies nicht so 
ohne weiteres möglich. Das ‚„‚Kunst- 
studio für Fortgeschrittene‘ — wie 
die verballhornte Übersetzung lau- 
ten müßte — ist durch und durch in 
englischer Sprache gehalten. Eben- 
so wie das Handbuch, welches da- 
durch nicht unbedingt als Hilfe an- 
zusehen ist. Trotzdem bleiben die 
enormen Leistungen des Program- 
mes, die wir im folgenden schildern 
wollen. 


FARBEN MISCHEN 
AUF DER „PALETTE“ 


Da wäre zuerst einmal der Einstel- 
lungsoption ‚‚Palette‘“. Hier können 
sämtliche Farben verändert werden, 
wobei Sie nicht vergessen sollten, 
daß trotzdem nur jene 16, 4 oder 

2 Farben darstellbar sind, die im je- 
weiligen Modus Gültigkeit haben. 
Zwei unterschiedliche Einstellungs- 
formen sind hierfür möglich: Mit 
„Circle“ kann jede einzelne Farbe ge- 
ändert werden, mit ‚‚Rotate‘‘ da- 
gegen wird eben jenes Rotationsprin- 
zip angesprochen, welches auch die 
Bonner Grünen bevorzugen, es 

rückt also jeweils ein Farbwert nach. 
Aus INK 0 wird INK 1, aus INK 2 
wird O0. Eine ‚„View“-Option erlaubt 
hin und wieder den Blick auf ein 
bereits erstelltes oder eingelesenes 
Bild. Allerdings wirken sich die An- 
derungen erst beim Abspeichern 
und nochmaligen Einlesen aus (zu- 
sammen mit einigen anderen Optio- 
nen). Wie ein Bild also durch die 
Änderung ausschaut, läßt sich mit 
dieser Option nicht prüfen. 

Gegen Fehlentscheidungen gibt es 
die ‚„Undo‘‘-Option, mit der jeweils 
die letzte Änderung rückgängig ge- 
macht werden kann. Mit „Standard“ 
läßt sich der ursprüngliche Zustand 
wieder herstellen. 


FARBENZAUBER MIT 
VIELEN INK-MENÜS 


Mit „Palette“ ist allerdings nur der 
Grundmodus festgelegt. Mit welcher 
Farbe man letztlich auf welchem 
Hintergrund zeichnet, wird in eige- 
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nen INK-Menüs festgelegt, welche 
sich zu fast allen Programmroutinen 
finden. Hierbei steht dann auch der 
Transparent-Modus zur Verfügung. 
Die Werte für die Vorder- und Hin- 
tergrundfarbe und den Transparent- 
modus gelten dann jeweils für die 
Texteingabe, für das Zeichnen, für 
die Muster und für die Bildschirm- 
ausschnitte. s 
Weitere Editiermöglichkeiten gibt 
es unter der Rubrik „Vermischtes“ 
(Miscellaneous). Es handelt sich hier 
tatsächlich um ein Sammelsurium 
von Optionen, die von der Verän- 
derung des Bildschirmmodus bis zur 
Festlegung des Eingabegerätes rei- 
chen. Im letztgenannten Untermenü 
finden sich auch so interessante Sa- 
chen wie die AMX- oder Kempston- 
Maus. Auch diese Geräte sind in 
Deutschland nicht allzu sehr verbrei- 
tet, aber gerade deswegen wird sich 
der spärliche Anwenderkreis freuen, 
einmal ein Programm zu finden, 


TEST 


das Originalbild wenigstens wieder 
einlesen. 


ZEICHNEN — FREIHEIT 
FÜR DIE PHANTASIE 


Mit seinen Zeichenmöglichkeiten 
hat das Art Studio das bisher beste 
Programm, den Profi Painter von 
Data Becker, überrundet, ange- 
sichts des Speicherbedarfs aber 
auch kein Wunder. Die Steuerung 
funktioniert schnell und dabei doch 
präzise. Neben Punkten und Linien 
stehen auch geometrische Figuren, 
etwa Dreiecke, Vierecke und Ellip- 
sen, zur Verfügung. Dabei gibt es 
zwei verschiedene Zeichenmetho- 


ständlich kann z.B. Text eingefügt 
werden. Auch hier sind die vorgege- 
benen Möglichkeiten auf den ersten 


"Blick nicht so groß, wie man es viel- 


leicht erwartet. Es läßt sich fett und 
(oder) Schrägschrift anwählen, wo- 
bei noch die Größe und der Zwi- 
schenraum festgelegt werden kann. 
Wem dies nicht reicht, der sei auf 
einen Font-Editor verwiesen. Einer- 
seits kann hier der gesamte Zeichen- 
satz verändert werden, andererseits 
kann man jedoch auf einen der zehn, 
auf Diskette vorhandenen, Datensät- 
ze zurückgreifen. Schrift kann auch 
um jeweils 90 Grad gedreht werden. 
An und für sich ist dieser Punkt 
recht positiv, es bleibt aber zu kriti- 
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welches darauf zugeschnitten ist. 
Andererseits läßt sich auch ein 
8-Weg-Joystick als Eingabeeinheit 
anwählen und mit diesem ist das 
Arbeiten ebenfalls sehr gut möglich. 


and42 
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Letztlich bleiben noch die Cursor- 
oder frei definierbare Tasten. Bitte 
auch nicht vergessen, sich die Bild- 
schirmkoordinaten zu merken. 

Auf Wunsch wird in der Menüzeile 
auch angezeigt, in welchem Koordi- 
natensystem sich der Pfeil bewegt. 
Diese Zahlen sind beim Zeichnen 
eine große Hilfe und weil die Berech- 
nung auch nicht das Tempo verlang- 
samt, fragt man sich, warum diese 
Option nicht standardmäßig einge- 
schaltet ist. Andererseits kann ein 
einmal angepaßtes, individuell ein- 
gestelltes Programm auf eine Ar- 
beitsdiskette abgespeichert (“Save 
new Copy“) werden, so daß Kritik 
dieser Art entfallen muß. 


PROBLEME BEIM 
UMSCHALTEN DER MODI 


Eine knifflige Geschichte ist dagegen 
das Umschalten von einem Mode in 
den anderen. Es ist nun einmal so, 
daß immer mehr Farben verlorenge- 
hen, je feiner die Bildschirmauflö- 
sung beim Schneider CPC gewählt 
wird. Schaltet man zurück, bleibt die 
Grafik bei zwei Farben. Man sollte 
also unbedingt den Menüpunkt 
„Protected Ink“ nutzen, um die 
Farben auf diese Weise zu sichern. 
Leider hilft dies nur für das Abspei- 
chern und die Umschaltung in einen 
anderen Modi wird dadurch etwas 
umständlich: Zuerst Farben schüt- 
zen, dann abspeichern, dann höhe- 
ren Modus wählen. Ist das Ergebnis 
nicht zufriedenstellend, kann man 


den, deren Auswahl maßgeblich 
das Tempo in der Bedienung be- 
stimmt. Eine Option „Elastic“ 
kann wie ein Schalter an- oder aus- 
zn werden. Ohne diese Routine 
egt man den Anfangspunkt einer 
geometrischen Figur fest und erhält 
das Ergebnis erst, wenn der End- 
unkt angeklickt ist. Alternativ _ 
ierzu kann z.B. ein Kreis oder ein 
Viereck langsam größer gezogen 
werden. Das ständige Zeichnen und 
Löschen dieses Kreises kostet natür- 
lich Zeit. 


KEIN CAD SONDERN 
KUNSTLER 


Ganz ausreichend ist das Angebot 
der Hilfsroutinen allerdings nicht, 
wenn man genauere Grafiken, etwa 
Diagramme anfertigen will. Das Pro- 
gramm ist jedoch ohnehin für krea- 


tive Zeichnungen gedacht und bringt 


auf diesem Sektor mehr. Selbstver- 
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Das Regiepult zur individuellen Farb- 
einstellung 


sieren, daß eine exaktere Rotation 
nicht möglich ist. Natürlich kosten 
derlei Berechnungen viel Zeit, diese 
würde jedoch mancher gerne auf- 
bringen, um in den Genuß einer 
solchen Option zu kommen. 


VERGRÖSSERN MIT 
„SCROLL-BAR” 


Ein Bildschirmbereich kann auch 2-, 
4- oder 8-mal vergrößert und in die- 
sem Zustand bearbeitet werden. Von 


. GEM stammen dabei die ‚‚Scroll- 


Bars‘‘ an der oberen und seitlichen 
Kante des Fensters. Ein helles Vier- 
eck zeigt den dargestellten Bereich 
und kann dann nach horizontal, bzw. 
vertikal verschoben werden. Ent- 
sprechend ändert sich der Inhalt des 


Windows. Diese Methode erspart es 


N 


le 


dem Anwender, in das Hauptmenü zu- prüfen, ob nicht eines der insge- 


rückzukehren, um einen neuen Be- 
reich zur Vergrößerung anzuwählen. 


WINDOWS — DAS „BONBON” 
DES ART STUDIOS 


Das Erstellen von Grafiken wird 
durch ein ausgefeiltes Window- 
System erleichtert. Das Prinzip ist 
einigen vielleicht von aufwendigeren 
PC-Zeichenprogrammen bekannt. 
Mit dem Cursorpfeil werden Bild- 
schirmbereiche begrenzt und kön- 
nen dann verschoben, kopiert, ge- 
dreht oder auch wieder gelöscht 
werden. Auch das Abspeichern 
oder Ausdrucken eines solchen Teil- 
bereiches ist möglich. Rainbird bie- 


n_en ir. 


tet dem Anfänger mit einer kleinen 
Bibliothek etwas Hilfe. Mit Mauer- 
teilen, Türen, Wolken und Mond ist 
schnell das Titelbild zu einem Aben- 
teuerspiel hergestellt und durch das 
Einfügen eigener Teile bleibt das 
Ergebnis trotzdem individuell. 


MUSTER — SPIELEREI 
OHNE GRENZEN 


Spätestens bei den Mustern, die zum 
Ausfüllen der Flächen zur Verfü- 
gung stehen, wird der Anwender 
merken, daß er sich in einem künst- 
lerisch orientierten Malprogramm 
befindet. Während man Schraffu- 
ren selbst editieren muß, steht eine 
große Sammlung origineller Muster 
bereit. Das reicht von Augen und 
Lippen bis zum modischen Schot- 
tenkaro. Auch hier kann man sich 
wiederum selbst eine individuelle 
Bibliothek erstellen und abspei- 
chern. Dabei muß es sich nicht un- 
bedingt um einen kompletten Da- 
tensatz handeln. Man kann beliebig 
eine der kleinen Grafiken heraus- 
greifen und innerhalb des Rasters 
bearbeiten. Bildpunkte können 
dabei auch mit Transparent-, Hin- 
tergrund- oder Vordergrundfarbe 
belegt werden. Bevor man sich die- 
se Mühe macht, sollte man jedoch 


2: IESERDENE DEE PURE 


samt 150 Muster schon den vorge- 
sehenen Zweck erfüllt. 


SCHWACHPUNKT HANDBUCH 


Leider entspricht das Handbuch 
nicht ganz der Leistungsfähigkeit 
des Programmes. Dabei ist die eng- 
lische Sprache oftmals das größte 
Hindernis. Es stellt sich außerdem 
heraus, daß das Manual wohl einmal 
in den Händen eines Dolmetschers 
war, denn im Anhang findet sich ein 
kleines Wörterbuch der wichtigsten 
Begriffe. So bleibt der Verdacht, 
daß man keine komplette Überset- 
zung angefertigt hat, um den Ko- 
pierschutz aufrecht zu erhalten. 


GEM-Benutzerführung mit Joystick- 
Steuerung 

Selbst in England dürfte der Text 
nicht auf große Gegenliebe stoßen. 
Zu oft findet sich der lapidare Hin- 
weis, daß etwas Übung und Praxis 
eine Option wohl besser erklären 
könnten als es eine Beschreibung 
kann. Andere Dinge, die dem An- 
wender sicherlich sofort klar sind, 
werden dagegen ausführlich be- 
schrieben und erläutert. 


FAZIT: 
SEHR GUTES ZEICHEN- 
PROGRAMM 


The Advanced Art Studio ist ein Zei- 
chenprogramm, das den CPC 6128 
voll ausnutzt und endlich einmal 
zeigt, welche Grafikmöglichkeiten 
das Gerät zu bieten hat. Die Menü- 
führung und Programmbedienung 
lassen keinen Tadel zu, Gewöh- 
nungsschwierigkeiten wird es aller- 
dings der englischen Sprache wegen 
geben. Für phantasievolle Zeichnun- 
gen ist zur Zeit wohl nichts Besse- 
res erhältlich, aber Konstruktions- 
pläne oder schon Diagramme dürf- 
ten kaum zu erstellen sein. Beson- 
dere Beachtung verdient das Ad- 
vanced Art Studio wegen seiner 
vielfältigen Farbmöglichkeiten. 
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GEISTER- 
STUNDE 


Es ist Mitternacht, die berüchtigte 
Geisterstunde. Sie sind allein auf 
Schloß Frankenstein und haben sich 
nun eine schlicht unlösbare Aufgabe 
vorgenommen: Sie wollen Frankie, 
das Monster, zum Leben erwecken. 
Draußen pfeift der Wind über die un- 
zähligen Totenacker und das Mon- 
ster erwartet Sie in der Spitze des 
höchsten Turmes. Doch wie erweckt 
man den alten Knaben zum Le- 
ben? Ganz einfach, man sammelt 
die für Frankie lebenswichtigen 
Organe ein, die auf dem ganzen 
Schloßgelände versteckt sind — und 
das sind nicht gerade wenige! Er 
braucht nämlich dringend ein Paar 
Lungenflügel, Nieren, Leber, ein 
Herz und natürlich ein Gehirn, kurz 
und gut, alles was der Hobby- 
Chirurg zu bieten hat. Damit man 
aber später keine böse Überraschung 
erlebt, sollte man sich nach wirk- 
lich guterhaltenen Organen umse- 
hen. Das Beste ist da gerade gut ge- 
nug. Sind sie Frankie’s ausgezeich- 
netem Geschmack nach nur zweite 
Wahl, wird er kurzen Prozeß ma- 
chen und Undank ist der Mühe Lohn. 


WALKÜREN-HELDIN AUF 
SCHLÜSSELSUCHE 


Mit der Organsuche alleine ist es 
aber noch nicht getan. Um in das 
Turmzimmer zu kommen, brauchen 
Sie nämlich — wie könnte es in ei- 
nem solchen Spiel auch anders sein — 
einen Schlüssel. Sieben Stück davon 
sind insgesamt auf dem ganzen 
Schloßgelände verteilt, aber nur ei- 
ner Öffnet (,‚Programmierer-Ge- 
meinheit‘‘) auch die Tür. Die ande- 
ren dienen nur zum Öffnen von 
Grabkammern oder anderen Räu- 
men mit ähnlich schaurigem Inhalt. 
Ist man dann endlich im Turmzim- 
mer, wird man sehr schnell feststel- 
len, daß hier Kenntnisse des Elek- 
tronikhandwerks nicht fehl am 
Platz sind. Beim Durchforsten des 
Schlosses sollte man sehr auf seinen 
Puls, dargestellt durch ein pochen- 
des Herz am rechten, unteren Bild- 
$chirmrand, achten! Da Sie aber 
kein tapferer Held, sondern eine 
schwache Frau sind und augen- 
scheinlich auch noch Gewichtspro- 
bleme haben, kann eine Begegnung 
mit einem der schon längst verbli- 
chenen Schloßbewohner den Kreis- 
lauf ganz schön mitnehmen. 

Diese Bewohner, ehemalige Helden 


TEST 


BRIDE OF FRANKENSTEIN 


Lust sich ein bißchen zu gruseln und dabei doch Spaß zu haben? 
Dann nichts wie ran an den CPC und „‚Bride of Frankenstein’ geladen. 
Erwecken Sie Frankie zum Leben. Eine Aufgabe, die Sie sicher eine 
Zeitlang beschäftigen wird. Frankie goes to Ariolasoft... 


auf dem Schlachtfeld und uralte 
Kammerdiener, sind nämlich ganz 
und gar nicht mit Ihrem Vorhaben 
einverstanden. Pocht das Herz zu 
stark, kann man schon mal einen 
kleinen Herzanfall erleiden, der wohl 
oder übel zum Ende des Spieles 
führt, da man nur über ein Leben 
verfügt. Sollte also mal der Puls 
zu hoch sein, tut man gut daran, ein 
paar Räume weiter erst einmal rich- 
tig zu verschnaufen. Ab und zu 
kann man auch einmal ein Stärkungs- 
elexier finden, das dem Kreislauf 
wieder auf die Sprünge hilft, um Ka- 

»lorien zu sparen ist es ohnehin nicht 
der richtige Moment. Aber es liegen 
auch noch andere nützliche, aber 
auch weniger nützliche, Gegenstän- 
de im Schloß verteilt. Man kann die- 
se aufsammelin und bei Bedarf an- 
wenden. 


ALLES KANN HELFEN, ALSO: 
SAMMELN 


So macht sich zum Beispiel eine 
Spitzhacke nicht schlecht, wenn 
man auf Knochen stößt oder plötz- 
lich Schläge verteilen muß. Auch 
in einer Gruft kann solch eine 
Hacke zu durchschlagendem Erfolg 
verhelfen. In den dunklen Grabkam- 
mern und Verliesen ist eine Lampe 
oder eine Fackel oft nicht ganz un- 
nütz. Vorsicht: Verirren Sie sich ein- 
mal in einem dunklen Raum und 
es gesellt sich einer der Geister zu 
Ihnen, ist man so gut wie verlo- 
ren, wenn man sich nicht die Posi- 
tion der Tür genau eingeprägt hat. 
In den Verliesen warten gefesselte, 
bedauernswerte Gestalten auf ihre 
Befreiung. Manche erweisen sich 
sogar als dankbar. Alles in allem 
gr keine leichte Aufgabe, die 

ie sich da vorgenommen haben. 
Glück können Sie auf alle Fälle ge- 
brauchen! 


GELUNGENE SPIEL- 
ATMOSPHÄRE 


Soweit Vorgeschichte und Aufgabe 
von ‚„Bride of Frankenstein“, dem 
neuesten Produkt aus dem Hause 
Ariolasoft. Nach dieser wirklich 
guten Spielidee erwartet man nun 
natürlich ein genauso hervorragen- 
des Programm. Und diese Erwar- 
tung wird nicht getrübt! ‚‚Bride of 
Frankenstein“, was übersetzt ‚Die 
Braut von Frankenstein‘“ bedeutet, 


ist ein erstklassiges Spielprogramm 
für den CPC. Der Sound kann als 
gelungen bezeichnet werden, ob- 
wohl er nicht der allerbeste ist. 
Aber er erzeugt die richtige Atmo- 
sphäre und das ist schon wichtig. 
Wenn man da an den Sound von 
„Miami Vice“ denkt... 

Auch die Grafik ist gut gelungen. 
Nicht vom Allerfeinsten, wie man 
zugeben muß, aber besser als ‚‚gut‘. 
Die Braut des Herrn Frankenstein 
ist eine nette, mollige Person 


So soll er aussehen: Frankie Frankenstein 


(pardon). die man gleich sympa- 
thisch findet. Die Gespenster und 
Zombies werden in der Anleitung 
schrecklicher beschrieben, als sie 
wirklich aussehen. Hier hätte man 
zwar etwas mehr Sorgfalt hinein- 
stecken können, aber man merkt 
doch, daß der Spaß vorrangig war. 


MANGELNDE ANZAHL DER 
SPIELERLEBEN 


Die Gegenstände sind gut animiert 
und werden sofort erkannt. Proble- 
me wird man allerdings mit den 
Schlüsseln haben, die sich alle ziem- 
lich ähnlich sehen. Hier muß man 
schon zweimal hinsehen, damit 
man nicht den selben Schlüssel 
mehr als einmal benutzen will. Die 
Spielmotivation ist eher mittel- 
mäßig, da man nur ein Leben pro 
Spiel zur Verfügung hat und die 
Aufgabe doch ziemlich schwer zu 
lösen ist. Ausgebuffte Spielefreaks 
werden zwar weniger Probleme 

als die blutigen Anfänger haben, 
aber auch ihnen wird die Lösung 
nicht gerade ‚‚vor die Füße gelegt“. 
Es gehört schon sehr viel Probie- 
ren zu diesem Programm, um ans 
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Ziel zu gelangen. Wer in diesem 
Spielgenre seine ersten Schritte 
macht wird sich schwertun. 

„Bride of Frankenstein“ hat rund 
sechzig Räume, die grafisch gelun- 
gen sind. Fast jeder hat seine Be- 
sonderheit: Im einen gibt es eine 
versteckte Tür, im anderen wieder 
mehrere Gegenstände. Diese können 
aufgenommen und bei Bedarf mit 
den Cursortasten ausgewählt und be- 
nutzt werden. Die Pulskontrolle ist 
eine sehr gute, neue Idee. Sie kann 
mit dem Energievorrat bei einigen 
anderen Programmen verglichen 
werden. Je langsamer der Puls geht, 
desto mehr Energie hat man. Die 
Musik, die während des ganzen 
Spielablaufs läuft, kann per Tasten- 
druck an- bzw. abgeschaltet werden. 
„Bride of Frankenstein‘ kann mit 
der Tastatur oder mit dem Joystick 
gespielt werden, wobei man letzte- 
ren — soweit möglich — vorziehen 
sollte. Erwähnenswert ist noch, 

daß man die Blickrichtung ändern 
kann. Von dieser Möglichkeit wird 
man aber kaum Gebrauch machen. 
Mit ESC kann das Spiel angehalten 
und wieder fortgesetzt werden. 


FAZIT: 
EIN GELUNGENES PROGRAMM 


„Bride of Frankenstein‘ kann man 
alles in allem als gelungen bezeich- 
nen. Die Grafik ist gut und macht 
für sich besehen schon genug Spaß. 
Auch der Sound spricht an und 
paßt zum Programm. Durch die 
schwere Aufgabe kann der Spieler 
sich einige Zeit beschäftigen. 
Strategie und Nachdenken wer- 
den stark gefordert, da man ziem- 
lich viele Rätsel lösen muß. Für Bal- 
lerfans ist „„Bride of Frankenstein“ 
weniger geeignet, da von deren 
Lieblingsbeschäftigung überhaupt 
nicht Gebrauch gemacht wird. Der 
Preis von 49,95 DM für die Diskette 
ist ein bißchen zu hoch angesetzt, 


Von ariolasoft 


aber noch ertragbar. Die Kassette 
kostet übrigens 29,95 DM. Beson- 
ders hervorzuheben ist noch die 
deutsche Anleitung, die sehr aus- 
führlich und leicht verständlich in 
das Spielgeschehen einführt. 
Ariolasoft, macht weiter so! 

(TB) 


FINISH UND EMU 


Trotz Ihrer sicherlich gut- 
gemeinten Zusage, daß 
Listings vor dem Abdruck 
geprüft werden — mit 

dem Programm ‚‚Finish“ 
scheint trotzdem etwas 
nicht zu stimmen. Ich 
habe nach dem Abtippen 
zweimal kontrolliert, so 
daß ein Fehler unwahr- 
scheinlich ist. Nach einem 
RUN aber stürzt das Pro- 
gramm jedesmal ab, mit 
einem „Syntax-Error in 
Zeile 8224“. Dabei gibt es 
diese Zeile gar nicht. Mir 
erscheinen zwar einige Zei- 
len etwas merkwürdig, so 
z.B. 6900 und 1290 mit 
DELETE, aber daran liegt 
der Absturz auch nicht. 
Übrigens noch eine Bitte 
und/oder Anregung. Im 
Heft 4/87 war das Pro- 
gramm „Mountain Battle‘, 
Obgleich ich einen CPC 
464 habe, wagte ich ein 
Abtippen und bekam 

das Programm auch mit 
dem Utility EMU aus dem 
Konkurrenzblatt PC In- 
ternational zum Laufen. 
Da nicht jedes Programm, 
das für den 664 geschrie- 
ben wurde, mit EMU läuft, 
wäre es gut, wenn man vor 
dem Abtippen das wüßte, 
um sich eventuelle Arbeit 
zu ersparen. Kann man 
das nicht eventuell schon 
in der jeweiligen Beschrei- 
bung des Programms er- 
wähnen? 

Weiterhin geht aus dem 
Heft 4/87 die Auswer- 
tung im Listing „Europa“ 
unter dem Menüpunkt 
Prüfung nicht. 

Went Ameis, Preetz 


Unsere Zusage, die Program- 
me zu überprüfen, war 
nicht nur gut gemeint, sie 
wird auch eingehalten. 
Das Programm läuft in 
der abgedruckten Form 
und selbstverständlich 
gibt es bei uns keine ge- 
heimgehaltene Zeile 8224. 
Zwischen PC Internatio- 
nal und Schneider aktiv 
besteht sicherlich keine 
bösartige Konkurrenz, 
schließlich haben wir ja 


DIALOG 


SUHnEIDER aktiv 


LESERBRIEFE 


Postiach 116] 
8044 Unterschleissheim 


teilweise die gleichen 
Leser, wie Ihr Beispiel 
zeigt. Trotzdem können 
und wollen wir uns natür- 
lich nicht auf ein Utility 
berufen, dessen Rechte 
bei einem anderen Verlag 
liegen. Ich hoffe, Sie ha- 
ben dafür Verständnis. 
Daß Ihre ErafarESser ep 
nisse bei Europa nicht so 
günstig ausfallen, liegt 
aber tatsächlich an einem 
Mißgeschick des Autors. 


‚Der Eingabestring wird in 


Großbuchstaben umge- 
wandelt, wie er auch in 
den Datas stehen sollte. 
Ist dies beim Abtippen 
nicht geschehen, dann ist 
die Antwort falsch. Sie 
müssen trotzdem nicht 
sämtliche Namen neu ein- 
geben. Der Vergleich Ihrer 
Antwort mit den Daten 
findet in den Zeilen 
31600, 33240 und 34500 
statt. Verwandeln Sie den 
ausgelesenen Wert einfach 
ebenfalls in einen ‚‚Upper- 
String‘‘. In Zeile 31600 
sollte z.B. der Ausdruck 


“IF UPPER$(an$) 
sanw$...“ 
durch 
“IF UPPER$(an$) 
=UPPER$(anw$)...‘“ 
ersetzt werden. Genauso 
verhält es sich in den 
anderen Zeilen mit den 
een Varia- 
en. 


LOB & TADEL 


Gestern habe ich mir das 
neu erschienene Heft 
„Schneider aktiv 6/87“ 
gekauft. Das Heft ist 

vom Inhalt Klasse. Leider 
läßt die Durckqualität 

zu wünschen übrig. In den 
Listings ist die O kaum 
noch zu erkennen, wenig- 
stens in dem Heft, das 
ich mir gekauft habe, 

war es so. Manchmal ist 
es auch der Fall, daß die 
Texte doppelt gedruckt 
werden. Und dies soll 
man als Kunde lesen. 
Außerdem ist das Preis-/ 
Leistungsverhältnis gut, 
aber das Papier könnte 
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besser sein. Andere Zeit- 
schriften bieten zu die- 
sem Preis wenigstens bes- 
seres Papier. Dann wäre 
ich auch bereit, ein Abo 
bei Ihnen zu tätigen. 
Macht weiter so, aber mit 
besserer Papierqualität. 
Andreas Ludwig 


Zuerst einmal vielen Dank 
für das Lob. Wir hoffen, 
daß Sie mit dem Doppel- 
druck zwei Listings mei- 
nen, die noch nicht in 
unserer neuen Form aus- 
gedruckt wurden. Damit 
waren wir auch nicht 
glücklich und änderten 
deshalb die Qualität. Die 
Null kann selbstverständ- 
lich einen Querstrich er- 
halten, mit der man sie 
vom O unterscheiden 
kann. Wir freuen uns 
über diese Anregung und 
haben dies bereits veran- 
laßt, bitten jedoch gleich- 
zeitig um Verständnis, 
wenn sich dies noch nicht 
sofort in jedem Listing 
auswirkt. Da Ihnen der 
Inhalt ausgesprochen gut 
gefällt und Sie das Preis-/ 
Leistungsverhältnis 

nicht kritisieren, gibt es 
zur Papierqualität nur 
wenig zu sagen. Bei der 
Herstellung eines Heftes 
ist das Papier ein ent- 
scheidender Kostenfak- 
tor. Ein teurer Druck 
kann jedoch nur mit viel 
Werbung finanziert wer- 
den. Wir bei Schneider 
aktiv sind jedoch recht 
stolz darauf, in dieser 
Beziehung unabhängig zu 
sein. Es kommt eben 
mehr auf den Text an 

als auf das Papier, auf 
dem er gedruckt ist. Im 
Grunde genommen ge- 
ben Sie uns mit Ihrem 
Lob recht. 


UPDATE ZUR HARD- 
COPY AUS 
SPEZIAL 2/87 


In allen drei Modi kann 
nun auch auf dem CPC 
664 und 6128 ausge- 
druckt werden. Die im 
Heft aufgeführten Ände- 
rungsvorschläge galten 
nur für Modus O0. Um das 
Programm vollends genie- 
ßen zu können, ändern 


Sie bitte in Zeile 35160 
die letzten beiden Zahlen 
in 195, 19337. 

In der Zeile 35170 muß 
als erste Zahl 183 (statt 
177) und als letzte 
10980 (statt 10974 ) 
stehen. 


VORTEX- DFÜ-— 
VIDEODAT 


Ich hoffe, daß Sie mir 
und anderen Lesern wei- 
terhelfen können: 

1. Wie bastle ich mir ein 
Verbindungskabel von 
Vortex 6.25 Zoll (FS-1) 
zum 3-Zoll-Schneider- 
Laufwerk? 

2. Woher bekommt 
man Vortex-Bauanlei- 
tungen? 

3. Datenübertragungen 
von Commodore zum 
Schneider CPC und um- 
gekehrt für die Pictures? 
4. Videodat (z.B. vom 
WDR Computerclub) auf 
CPC 464, Hardware-Baste- 
leien und Software. Das 
wäre doch einmal einen 
Bericht wert, oder? Inter- 
essiert bestimmt viele 
Leser! 

T. Stegmann, Heide 


Zum Anschlußproblem: 
Die Flachbandkabel der 
Vortex- und der Schnei- 
der-Floppy besitzen je- 
weils eine Anschlußbuch- 
se. Da jedoch beide Her- 
steller erwarten, daß je- 
weils das andere Gerät hin- 
zukommt, muß ein spe- 
zieller Adapter gekauft 
werden, der an jeder Sei- 
te 34 Nadelpins aufweist. 
Ausführliche Bauanleitun- 
gen zur Vortex Station 
können Sie nur über die 
Firma Vortex selbst bezie- 
hen (Adresse im Bezugs- 
quellenverzeichnis). Da 
diese jedoch nicht als Han- 
delsware geführt werden, 
sondern dem Urheber- 
recht unterliegen, sollten 
Sie vielleicht Ihre Anfrage 
präzisieren, um eine ra- 
sche Antwort zu ermög- 
lichen. 

Der Datentransfer von 
ASCII-Files ist ohne Pro- 
bleme möglich. Mit Pic- 
tures werden Sie jedoch 
wahrscheinlich Binärfiles 
angesprochen haben. Hier- 
zu benötigen Sie ein DFÜ- 


SCHNEIDER aktiv 
HOTLINE 


Montags 


IS.00 - 19.00 Uhr 
Tel: 089/18 40 24 


ACHTUNG: NEUE TELEFONNUMMER AB SOFORT! 
089/184024 — alle anderen Nummern werden automatisch 


geschaltet! 


Programm, welches eine 
XModem-Option bietet, 
Verschiedene Software- 
verlage haben ein entspre- 
chendes Programm im 
Angebot. 

Videodat und den WDR- 
Computerclub, Hard- 
ware-Basteleien und Soft- 
ware hierzu halten auc 
wir für ein interessantes 
Thema und danken für 
Ihre Anregung. Sie kön- 
nen sicher sein, daß wir 
auch in Zukunft über alle 
lohnenswerten Themen 
berichten. 


LISTINGS FÜR 
DEN PC 1512? 


Mit Ihren Berichten über 


den PC bin ich sehr zu- 
frieden, es könnten aller- 
dings mehr sein. Was Ih- 
nen aber fehlt, sind 
Basic2-Listings. Als.regel- 
mäßiger Leser Ihrer Zeit- 
schrift konnte ich noch 
keines entdecken. Ver- 


zichten Sie auf diese Pro- 
gramme? 
Michael Harms, Mainz 


Wir verzichten nicht, son- 
dern üben Geduld, die 
wir leider auch von Ih- 
nen erbitten müssen. 

Uns liegen erst seit kur- 
zem einige Programme 
vor, aus denen wir aus- 
wählen und die wir Ihnen 
demnächst auch präsen- 
tieren können. Der PC 
1512 und das Basic2 

war auch für unsere Le- 
ser und Programmauto- 
ren etwas Neues und um 
ein gutes Listing zu schaf- 
fen, brauchte es nun ein- 
mal seine Zeit. 


UNIVERSALDATEI 


AUS SPEZIAL 2/87 


Beim Abtippen o.a. 
Listings mußte ich fest- 
stellen, daß die Druck- 
qualität der Zeitschrift 
teilweise so schlecht ist, 
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daß ich einige Zeilen 
nicht korrekt entziffern 
konnte, insbesondere 
Zeile 1890. 

Herbert Schulz, 

Lemgo 


Ab Heft 6/87 konnten 
wir die Druckqualität bes- 
sern. Aber hier mit einer 
kleinen Entschuldigung 
die fehlende Zeile: 

1890 zadr1=PEEK 
($input$+1)+256 *PEEK 
(Sinput$+2) 


PROGRAMM- 
EINSENDUNGEN 


Ich programmiere seit 
Jahren auf meinem 
Schneider CPC 464. Ein 
paar meiner Programme 
sind — wie ich meine — 
gut und zur Veröffentli- 
chung geeignet. Falls Sie 
Interesse an einem oder 
mehreren Programmen 
haben, so lassen Sie mich 
dies bitte wissen, damit 
ich Ihnen eine Diskette, 
ein Listing udn eine Er- 
läuterung zusenden kann. 
Teilen Sie mir dann auch 
gleichzeitig mit, in wel- 
cher Größenordnung das 
Honorar liegen würde. 
io Vygen, 

uisburg 
Da wir für den Leser han- 
deln, interessieren uns 
Programme aller Art. 
Aus Zeitgründen können 
wir nur Einsendungen 
mit Datenträger akzeptie- 
ren, wobei es keine Rolle 
spielt, ob es sich um eine 

assette oder eine Dis- 
kette handelt. 
Eine ausführliche Pro- 
grammbeschreibung ist 
keine Pflicht, erspart uns 
aber viel Mühe. Das Glei- 
che gilt für das Listing. 
Pro Programm zahlen wir 
bei Abdruck maximal 
300,— DM. Bis zu dieser 
Obergrenze bewerten wir 
allerdings die Idee, nicht 
die Zeilenzahl. Deshalb 
kann für eine Seite nur 
ein ungefährer Wert ange- 
geben werden, der zwi- 
schen 60,— und 80,— DM 
liegt. Das Superlisting 
wird nach wie vor mit 
einem Tausender hono- 
riert, aber wir erwarten 
dabei Profi-Qualität. 


Schneider 
aktiv) 


TEST 


WORDSTAR 1512 FÜR 
DEN SCHNEIDER PC 


Zu einem Preis von DM 199,— bietet die Firma Schneider ein 
Textverarbeitungsprogramm an, das vom Namen her an das bisher wohl 
erfolgreichste Textverarbeitungsprogramm WordStar erinnert. 

Der Name des Programmes lautet Wordstar 1512 und es stammt — wie 
Wordstar selbst — aus dem Hause MicrPro. Ltd. Unser Test sollte 
herausfinden, ob dieser Textverarbeiter für „Normalanwender” 
geeignet ist. 


“= Schneider 


Der Werbeaussage auf dem Verpak- 
kungsschuber zufolge wurde bei der 
Entwicklung der Version „1512“ 
das Hauptaugenmerk auf hohe An- 
wenderfreundlichkeit und leichtes 
Erlernen gelegt. Verblüffend ist 
aber dann schon, wenn man (wäh- 
rend des Tests) von einem Kollegen 
erfährt, daß ihm das Programm so 


bekannt vorkommt, und nach weite- 


ren Recherchen feststellt, er hat _ 
recht: Fast das gleiche Programm ist 
unter einem anderen Namen noch- 
mals auf dem Markt und heißt 
EASY (selbstverständlich von 
MicroPro) und ist in der Easy-Ver- 
sion teurer. 

Trotzdem (Easy wurde bereits in 


Fachzeitschriften getestet) haben wir 


unseren Test fortgeführt. Am besten 
kann man die Leistungsfähigkeit ei- 
nes Textprogrammes wohl dadurch 
feststellen, daß man mit diesem Pro- 
gramm schreibt. So wurden mehrere 
Artikel mit diesem Programm ge- 
schrieben und die üblichen Features 
ausgetestet. Außerdem ist Wordstar 
1512 nicht ganz identisch mit der 
uns vorliegenden Version von Easy, 
so daß eine Fortführung der ‚‚Eig- 
nungsfeststellung‘ durchaus berech- 
tigt war. 


WAS ERHÄLT MAN 
FÜR SEIN GELD? 


Der Lieferumfang von Wordstar 
1512 besteht aus einem ca. 200 Sei- 
ten umfassenden Handbuch, vier 
Disketten mit den Programmen so- 
wie einer im Handbuch enthaltenen 
Tastaturschablone. 

Die einzelnen Programmdisketten 
enthalten: 

Disk 1: Installation MS-DOS 

Disk 2: Drucker MS-DOS 

Disk 3: Adressenkartei MS-DOS 
Disk 4: Textverarbeitung MS-DOS 
Eigentlich für den Preis ein doch 
recht umfangreiches Werk (manch 
teurere Programme enthalten dün- 
nere Handbücher). 

Der Verfasser dieses Artikels arbei- 
tet seit Jahren mit verschiedenen 
Versionen von WordStar (auch auf 


Softw 


WordStar oder Easy? 


unterschiedlichen Computern) und 
kennt die Möglichkeiten und Lei- 
stungsfähigkeit, sowie auch ein paar 
kleine Probleme verschiedener Word- 
Star-Versionen. 

Um den Test so realistisch wie mög- 
lich durchzuführen, wurde deshalb 
so getan, als würde das erste Mal mit 
einem Textverarbeitungsprogramm 
professioneller Machart gearbeitet, 
denn so ergeht es doch den mei- 
sten PC-Käufern, die durch 
Wordstar 1512 beglückt werden 
sollen. 
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are 


Getestet wurde mit einem PC 1512 
HD 20, also der Version mit einge- 
bauter Harddisk. Als erstes wurde 
die It. Handbuch vorgeschriebene 
Installation durchgeführt. Hierbei 
gab es keinerlei Probleme, deshalb 
also frohen Mutes an die Erstellung 
eines eigenen Textes. 

Munter drauflosgeschrieben, schien 
sich Wordstar 1512 vom normalen 
Schreibhandling her nur wenig vom 
alten WordStar zu unterscheiden, 
da heißt die Schreibgeschwindigkeit 


WordStar 1512 
PC 


deutsch 


MicroPro 


kann ruhig hoch sein, das Programm 
hält ohne Probleme mit. Da wir auf 
einem anderen Computer ab und zu 
auch mit Easy verglichen, konnten 
wir feststellen, daß Easy dort nicht 
ganz so mithielt. Zwar gingen keine 
Zeichen verloren, aber der Compu- 
ter hing oft hinterher. Ein positiver 
Punkt für Wordstar 1512. Deshalb 
wurden nun die Sonderfunktionen 
ausprobiert. Unterstreichen, Fett- 
druck usw. sind nur Stichworte aus 
dem Angebot, das zur Verfügung 
steht. Im Gegensatz zu anderen 
WordStar-Versionen, bei denen dies 
mittels (teilweise sehr unlogischer) 


Control-Funktionen zu geschehen 
hat, kann bei Wordstar 1512 über 
Menüs die jeweilige Funktion aufge- 
rufen bzw. eingestellt werden. j 
Hilfsmenüs unterstützen dabei den 
Anwender. Leider aber nicht auf 
allen Betriebsebenen, weshalb man 
dann auf andere Ebenen zurück- 
schalten muß. 

Ausgewählte Funktionen, wie z.B. 
Unterstreichen und Fettdruck, wer- 
den auf dem Bildschirm durch unter- 
schiedliche Farben gekennzeichnet. 
Auf einem Color-Monitor wird Un- 
terstreichen beispielsweise durch 
Darstellung von hellblauer Schrift 
und Fettdruck durch hellbraune 
Zeichen dargestellt. 

Fährt man mit dem Cursor auf das 
erste Zeichen einer Hervorhebung, 
so wird links oben (in einem Status- 
menü) eingeblendet, welche Art 

von Funktion ausgewählt ist. Dies 
gilt auch für das letzte Zeichen einer 
Hervorhebung. 

Um all die eingestellten Funktionen 
abzufragen, ist es also lediglich erfor- 
derlich, den Text mit dem Cursor 
„abzufahren‘. Eine Methode, die 
durch die unterschiedliche Farbge- 
bung zwar einerseits recht komfor- 
tabel wirkt, andererseits aber verwir- 
rend sein kann, wenn mehrere Funk- 
tionen gleichzeitig ausgewählt wur- 
den (z.B. Fettdruck und Unterstrei- 
chungen). Da die hierfür nötigen 
Steuerzeichen nicht auf dem Bild- 
schirm zu sehen sind, kann es des- 
halb durchaus vorkommen, daß beim 
Überarbeiten des Textes nachher ein 
Steuerbefehl entfernt oder mehr- 
mals eingegeben wird. Deshalb wäre 
es günstig, wenn man die Möglich- 
keit hätte, die Steuerzeichen sicht- 
bar zu machen. 

Mit dem guten alten Wordstar sind 
die Steuerzeichen gut zu erkennen. 
Aus diesem Grunde wurde zur Kor- 
rektur eines völlig ‚‚übersteuerten“ 
Textes mit diesem wieder korrigiert. 
Die Steuerzeichen stimmten bei bei- 
den Versionen überein und belegen 
damit, daß WordStar-Dateien ausge- 
tauscht werden können. Alte Text- 
files können also übernommen wer- 
den. Ob es für alle WordStar-Versio- 
nen zutrifft, konnte nicht geprüft 
werden. 


ALTE „HASEN“” ARBEITEN 
LIEBER ANDERS 


Für ‚alte eingefleischte‘‘ WordStar- 
Fans ist die Bedienung über die 
Funktions-Menös sicher zu umständ- 
lich und kostet außerdem sehr viel 
Zeit. Andererseits kann aber nicht 
jedem, der Texte schreibt, das Er- 
lernen von Control-Sequenzen zu- 


TEST 


gemutet werden. In diesem Sinne 
ist die Steuerung von Wordstar 1512 
durchaus als leicht erlernbar und 
durchführbar zu sehen. Störend 
wirkte, daß durch die ‚‚Eindeut- 
schung“ einige Fehler eingebaut wur- 
den. So wird ein Hilfsmenü teilweise 
überschrieben und im Text sind 
Schreibfehler enthalten. 

Weiterhin fiel auf, daß bei vielen 
Funktionen keinerlei Hilfen zur Ver- 
fügung stehen. Hierbei wäre es wün- 
schenswert, wenn zumindest die 
Meldung „Keine Hilfe vorgesehen“ 
oder eine ähnliche Bemerkung er- 
scheinen würde. Im Gegensatz zu 
den Aussagen im Handbuch (zumin- 
dest hatten wir die dortigen Bemer- 
kungen so aufgefaßt) und auch in 
den Bildschirmanzeigen ist nämlich 
im Arbeitsmenü 1 und 2 keinerlei 
Hilfe über die Funktionstaste Fl zu 
erhalten! Zwar wurde durch die 
Leuchtdiode der Harddisk ein kur- 
zer Zugriff auf diesen Massenspei- 
cher angezeigt, aber eine Hilfe er- 
folgte nicht. 


DER EINZIGE WIRKLICHE 
FEHLER, DEN WIR FANDEN 


Beim „‚Mergen‘“, also beim Einfügen 
von Dateien, zeigte sich dann aber 
ein Fehler, der in unseren Augen 
das Programm schlichtweg ‚‚un- 
brauchbar“ machen kann: Deutsche 
Umlaute wurden plötzlich zu Gra- 
fikzeichen! Aus diesem Grunde ha- 
ben wir dann vorerst einmal den 
Test abgebrochen und versucht, die 
Firma Schneider darüber zu infor- 
mieren, bzw. nachzufragen, wodurch 
es zu diesem Effekt kommen konn- 
te. Aber wie so vielen anderen 
Schneider-Kunden gelang es auch 
uns nicht, entsprechend zuständige 
Personen bei der Firma Schneider 
außerhalb der eingeführten Hotline- 
Zeiten zu erreichen (auch während 
der Hotline-Zeiten hatten wir lange 
Zeit keinen Erfolg). 

Um zu prüfen, ob es vielleicht an uns 
lag und um herauszufinden, ob wir 
irgendwo einen Fehler gemacht hat- 
ten, fingen wir nochmals neu an. 


NOCHMALS ALLES VON VORNE 


Das Programm WS1512 wurde noch- 
mals vollkommen neu installiert 

und siehe da, der Fehler beim Ein- 
fügen einer Datei trat nicht mehr auf! 
Fehler aber sind immer die größten 
Sorgen bei unseren Tests, so auch 

in diesem Falle. 

Wir wußten nicht, wodurch dieser 
Effekt hervorgerufen wurde, wollten 
andererseits aber auch nicht einfach 
dahingestellt lassen, ob er vielleicht 
wieder auftritt. Der Fehler war vor- 
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schneide 


her immer direkt nachvollziehbar. 
Nach der Neuinstallation aber nicht 
mehr! Deshalb versuchten wir all 
das nachzuvollziehen, was wir beim 
bisher durchgeführt hatten und siehe 
da, es gelang uns, den Fehler wieder 
zu erzeugen. Wird im Arbeitsmenü 2 
der Punkt ‚Druckzeichentyp/Dichte“ 
und danach zweiter Schrifttyp ausge- 
wählt, dann kann ganz normal weiter- 
geschrieben werden und auch die Um- 
laute erscheinen als solche auf dem 
Bildschirm. Aber beim späteren 
„Datei einfügen‘ dieses Files werden 
verschiedene Umlaute plötzlich in 
Grafikzeichen geändert. 

Daraufhin haben wir mit der Firma 
Schneider wieder Kontakt aufgenom- 
men (es gelang uns tatsächlich) und 
das Problem geschildert. Noch am 
gleichen Tage erhielten wir den Rück- 
ruf, daß unsere Angaben stimmen. 
Auch bei deren Tests trat das Pro- 
blem auf. Laut Auskunft von 
Schneider soll zwar in den nächsten 
Monaten eine neue Version auf den 
Markt kommen, daß dieser Fehler 
aber behoben sein wird, bezweifeln 
wir, denn er ist auch im Programm 
Easy enthalten. 


FAZIT 


Das Programm Wordstar 1512 ist 
sehr preiswert und auch leistungs- 
stark. Wer den enthaltenen Fehler 
kennt, kann nach kurzer Zeit gut 
damit arbeiten. Es ist also keinesfalls 
eine stark abgemagerte WordStar- 
Version. Ob die gleichzeitig mitge- 
lieferte Dateiverwaltung (MailList) 
die Ansprüche von Kunden befrie- 


‚digen kann, erscheint uns zweifel- 


haft, denn die Eingabe-Masken sind 
fest vorgegeben und enthalten mehr 
Felder, als üblicherweise benötigt 
werden. 

Die große Anzahl von wählbaren 
Druckern erleichtert bestimmt vie- 
len Anwendern den problemlosen 
Anschluß und Betrieb dieser Aus- 
gabegeräte. Berufsmäßige Vielschrei- 
ber kann man mit Wordstar 1512 
zwar nicht begeistern, es läßt sich 
aber damit leben. Zum Betrieb soll- 
te aber unbedingt eine Harddisk vor- 
handen sein, denn sonst bremsen die 
dauernden Zugriffe auf den externen 
Massenspeicher die Arbeit. Es könn- 
te aufgrund der einfachen Bedie- 
nung sogenannten „Ab- und Zu- 
Schreibern‘“ sogar empfohlen werden, 
so aber eben nur mit Vorbehalt. 
Interessenten sollten sich bei Ihrem 
Händler auf alle Fälle eingehender . 
informieren, denn zu etwa gleichen 
Preisen gibt es auch andere Textver- 
arbeitungsprogramme, die ähnliche 
Leistungsmerkmale aufweisen. 


TEST 


GREYFELL 


Wie wär’s zur Abwechslung mal wieder mit einem netten 3D-Adventure 
a la Knight Lore? Spielen Sie doch einmal Kater und retten Sie Ihr 
Land vor dem bösen Zauberer Mauron. Gute Grafiken und eine gute 

Animation sorgen für eine gelungene Unterhaltung. 


Tiefe Trauer herrscht über dem Land 
Greyfell. Der böse Zauberer Mauron 
hat den goldenen Ball des Lebens 
gestohlen und fern in seiner großen 
Festung versteckt. Diese liegt tief im 
dunklen Wald des Grauens. Ihr 
Standort ist zwar allen Einwohnern 
von Greyfell bekannt, aber keiner 
von ihnen wagte sich je in ihre Nähe. 
Außerdem kennt nur Mauron selbst 
das Versteck des goldenen Balles 
und solange er in seinem Besitz ist, 
kennt das Land weder Lachen noch 
das fröhliche Geschrei spielender 
Kinder. An einem düsteren Abend 
sitzt der Kater Norman allein in der 
Wirtschaft vor seinem Bier, und die 
anderen Gäste erzählen sich traurig 
von den guten alten Zeiten. Nor- 
man hört davon, daß eines Tages das 
Land erlöst werden soll, daß einer 
kommen wird, der die dunklen Wäl- 
der rund um Maurons Festung 
durchdringt, um die Horden von 
Ratten und anderen grausamen 
Kreaturen unter Maurons Herrschaft 
zu bekämpfen. Er wird den Ball des 
Lebens zurückgewinnen und damit 
die Freiheit Greyfells wieder zurück- 
erobern. 

Der Kater hört auch von treuen Ge- 
sellen, die im Wald zurückgeblieben 
und nicht unter Maurons Einfluß 
geraten sind, so wie Blotto das 
Kaninchen, Offlorien der Kund- 
schafter, Willi das Schwein und ehe- 
maliger Polizist, oder Porbeliuns 

der Bär und ehemaliger Gastwirt. 
Sie alle seien Geschöpfe, die für 
Mauron nichts übrig haben und je- 
dem, der mit tapferem Herzen 

zu ihnen kommt, helfen werden, 
Greyfell ein für alle Mal von der 
grausamen Herrschaft Maurons zu 
befreien. 


NACH BIERGENUSS ZUM 
HELDEN AVANCIERT 


All das hört der Kater Norman. Er 
erinnert sich zurück an seine Kind- 
heit, in der er immer ein großer 
Held sein wollte und davon ge- 
träumt hatte, Mauron zu vertreiben. 
Nach dem fünften Krug Bier erwacht 
sein Mut, er springt auf einen der 
vielen leeren Tische und ruft laut 
aus: „Edle Freunde, verzweifelt 
nicht! Die Zeit ist gekommen, Mau- 
ron die Herrschaft über unser schö- 


nes Greyfell wieder abzugewinnen! 
Noch in dieser Nacht werde ich, 
Norman, mich aufmachen, den Ball 
des Lebens zu suchen und unser 
Volk zu befreien!“ 

Atemlose Stille entsteht. Die Gestal- 
ten blicken Norman entsetzt an. 

Er entspricht eigentlich gar nicht 
ihrer Vorstellung über einen Retter. 
Den haben sie sich immer etwas 
majestätischer vorgestellt. Aber die- 
ser Kater hat etwas besonderes 

— sie wissen nicht genau was — 
vielleicht kann ihnen Norman tat- 


RICHT DOUN 
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— vielleicht letzten — Blick auf die 
freundlichen Gesichter seiner 
Freunde. Und auf geht’s, das Bier 
im Bauch und der Gedanke an die 
Freiheit Greyfells im Sinn. Nach 
langem Fußmarsch erreicht Norman 
endlich den Waldrand. Der feuchte 
Geruch nach Tod und Verderben 
schlägt ihm entgegen. Der Kater zö- 
gert noch einen Augenblick und be- 
tritt mit gemischten Gefühlen den 
dunklen, unheilbringenden Wald. 
An dieser Stelle steigt der Spieler in 
die Handlung ein. Er übernimmt die 
Rolle des Katers Norman (logisch, 
oder?). Das Ziel des Spieles dürfte 
ja wohl jedem von uns klar sein. 
Unser Kater muß im tiefen Wald die 
Festung des Zauberers Mauron fin- 
den, in diese eindringen und den 
Ball des Lebens finden. Danach soll- 
te man auch wieder sicher den Wald 
wieder verlassen. Wie schon erwähnt, 


UP O LEFT FIRE 


u zu; 


REDEFINE KEYS SECTION 


Ss 
GET IT RICHT! ONE CHANCE ONLY! 


TEEN 


Trotz fehlender Wahlmöglichkeiten: 
Greyfell läßt sich auch mit dem Joystick 


steuern (oben). Im Inneren der Hütten 


gibt es einige Dinge zu entdecken (rech- 
te Seite). 


sächlich die Freude wiederbringen 
und das Land wieder fröhlich ma- 
chen! Wie ein Mann erheben sie sich 
und trinken Norman zu. Danach 
nimmt der Kater seinen Rucksack 
mit den wenigen irdischen Gütern 
und geht zur Tür. Er wirft einen 
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hat Norman im Wald einige Verbün- 
dete, die ihm bei seiner schweren 
Aufgabe helfen. Es sind dies die 
Eule Hitormis, der Bär Potbellius, 
das Schwein Willi, der Kundschafter 
bein und Blotto, das Kanin- 
chen. 


VIELE JÄGER SIND DES 
KATERS TOD 


Ein so mächtiger böser Zauberer wie 
Mauron hat selbstverständlich auch 
einige Gehilfen, die unseren Freund 
daran hindern wollen, den Ball des 
Lebens zu finden. Da wären zum 
Beispiel die persönlichen Diener 
Maurons, die Ratten. Sie sind auf 
alle Fälle zu töten, da sie einem 
sonst nur unnötig das Leben schwer 


machen. Die Ratten sind sehr 
dumm, aber wegen ihrer großen 
Zahl können sie den Gegner immer 
wieder leicht besiegen. Oft verstek- 
ken sie sich in Bäumen und sprin- 
gen von oben auf den armen Nor- 
man herab oder sie lauern hinter 
Hütten und fallen ihn dann von 
hinten an. 

Doch man kann sich in der groß- 
räumigen Landschaft gut verstek- 
ken und weiterlaufen, wenn sie ge- 
rade in eine andere Richtung 
schauen. Aber es gibt noch andere 
Bösewichter, vor denen Norman 
sich in Acht nehmen sollte: Da gibt 
es die Wölfe, die Wache im Wald 
halten, die Killer-Tomaten, welche 
die gefürchtete Gebein-Höhle be- 
wachen, Katzenfressende Pflanzen, 
deren Gefährlichkeit wohl nicht 
näher erläutert werden muß und 
noch jede Menge anderer Bösewich- 
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TEST 


ter wie Drachen und Krokodile. 
Aber diese lebenden Kreaturen sind 
nicht das einzige, was Norman das 
Leben schwer macht, denn das Land 
ist voll von überraschenden Fallen. 
Meteoriten und Giftpfeile fliegen 
ständig umher, was man allerdings 
auch zu seinem Vorteil verwenden 
kann. Die Ratten, besonders die 
langsamen, können nämlich durch 
diese fliegenden Objekte sehr 
rasch und wirkungsvoll beseitigt 
werden. Die anderen Bösewichter 
des Landes werden allerdings nur 
durch den Zauber unseres Katers 
vernichtet. Aber dank seiner 
Schlagkraft kann Norman sie auch 
„zu Brei schlagen“, was in der An- 
leitung empfohlen wird. Eine weite- 
re Hilfe wird Norman durch die um- 
herlaufenden Figuren gegeben, da 
diese, wenn sie Lust und Laune ha- 
ben, auch zu ihm sprechen können. 


50% 7% 
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RE NEE an 


Wenn eine Figur spricht, dann er- 
scheint ihr Bild auf einer Plattform 
vor der eigentlichen Spielfläche mit 
einer Sprechblase, die den Text ent- 
hält, der aber leider nur in Eng- 
lisch abgefaßt ist. 

Damit wären wir auch schon beim 
Bildschirmaufbau angelangt: Bei 
Greyfell handelt es sich leider wie- 
der einmal um ein typisches 3D- 
Spiel, wie sie seit Knight Lore in je- 
der Softwarekategorie zu finden sind. 
Die Spielfläche nimmt die oberen 
zwei Drittel des Bildschirms ein. Im 
unteren Drittel befindet sich ein klei- 
nes Icon-Menü, das zahlreiche Funk- 
tionen wie Schlagen, mit Zauber 
bannen, Objekt aufnehmen oder 
Objekt gebrauchen umfaßt. Per 
Knopfdruck wird das Menü aufgeru- 
fen. Jetzt kann man sich die ent- 
sprechende Funktion aussuchen. 
Die Figur wird mit dem Joystick 
oder vorher definierten Tasten über 
die gesamte Spielfläche bewegt. 

Hat man eine Kante erreicht, er- 
scheint die nächste Fläche und die 
Figur läuft weiter. Geht Norman 
durch eine unverschlossene Tür (es 
gibt auch verschlossene, deren 
Schlüssel erst gefunden werden muß), 
erscheint er wieder auf der anderen 
Seite der Tür. 

Das gesamte Programm ist grafisch 
sehr sauber gestaltet, der Wechsel 
von einer Spielfläche zur anderen 
klappt tadellos, wenngleich immer 
erst der gesamte Bildschirm neu auf- 
gebaut werden muß. Die einzelnen 
Spielflächen und deren Objekte und 
Gegenstände sind alle sehr schön ge- 
staltet. Die Figuren sind sauber und 
teilweise auch etwas lustig animiert. 
Nur die Bewegung läßt den Ein- 
druck erscheinen, daß die Figuren 
mehr schweben als gehen. Die Steue- 
rung funktioniert etwas langsam, 
weshalb Greyfell nur Geduldigen 
empfohlen werden kann. Der Sound 
ist sehr laut und auf Dauer nervend, 
kann aber akzeptiert werden. 


FAZIT: $ 
ZU TEUER FÜR EIN 
MITTELKLASSE-SPIEL 


Greyfell ist ein Spiel der guten Mit- 
telklasse. Wer Knight Lore & Co. 
bereits kennt, kann sich den Kauf 
sparen. Den übrigen kann man das 
Programm aber durchaus ans Herz 
legen. Die beiliegende Anleitung ist 
in drei Sprachen, darunter auch 
Deutsch, abgefaßt und führt sehr gut 
in die Handlung ein. Noch ein letz- 
tes Wort zum Preis: Fünfzig Mark 
für die Diskette sind doch ein biß- 
chen viel. Dafür müßte man eigent- 
lich mehr erwarten können. 


(TB) 
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TIPS & TRICKS 


YSTICK MIT 


DAUERFEUER! 


Defender-Spieler kennen das Gefühl, wenn einem nach einer 
halben Stunde der Daumen wehtut. Wer mit Hochgeschwindigkeit durchs 
All düst und dabei noch die bösen Buben der Galaxis abschießt, 
riskiert beim Schneider CPC schon einmal Blasen am Finger. Warum 
dachte man bei Amstrad auch nicht daran, daß es Joysticks mit Dauer- 
feuer gibt? Es bleibt also wieder einmal alles dem findigen User 
überlassen, der nun mit Lötzinn und Sachverstand seinen 

„Raumschiff-Computer‘’ umzurüsten hat. 


Entgegen vieler Veröffentlichungen 
ist es sehr wohl möglich, die auto- 
matische Dauerfeuereinrichtung 
der Commodore/Atari-kompatiblen 
Joysticks zu nutzen. Am bekann- 
testen und wohl auch am meisten 
verbreitet ist der Quickshot II. 
Über einen Adapter, den man sich 
mit ein wenig Geschick anpassen 
kann, ist nun endlich Schluß mit 
dem Krampf im Daumen. Als gerne 
in Kauf genommenen Nebeneffekt 
hat man dann endlich auch eine 
Buchse für den zweiten Stick. Be- 
vor es ans Einkaufen geht aber 
noch der Hinweis, daß selbstver- 
ständlich die passende Software da 


EINE HALBE STUNDE UND EIN 
LÖTKOLBEN 


sein muß. Ein Spiel, welches voraus- 

setzt, daß der zweite Spieler die 

Tastatur benutzt, kann auch mit 

dem Einsatz eines Adapters nicht 

zum Umdenken gebracht werden. 

Allerdings dürften Spiele dieser Art 

wohl die Ausnahme sein. 

Benötigt werden eine halbe Stunde 

Zeit, ein Lötkolben (den man sicher 

auch einmal ausleihen kann) und 

folgendes Kleinmaterial: 

— 1m 7polige Litze oder Flach- 
bandleitung 

— 0,5 m 2polige Litze 

— Ipolige D-SUB-Kupplung 

— 2 Stück 9poliger D-SUB-Stecker 

— Niederspannungsstecker 2.1 mm 
Innenloch 

— Kupplung dito. 

Die Teile werden nach dem Schalt- 

plan der Skizze 1 verlötet und die 

5 Volt Stromversorgung über den 

Niederspannungsstecker/Kupplung 

in die 5-Volt-Leitung des CPC ein- 

geschleift. Wichtig ist, daß nur maxi- 

mal 5 Volt verwendet werden, da 

sonst der Joystick beschädigt wird. 

Ferner ist unbedingt darauf hinzu- 

weisen, daß nur ein Stick mit der 

Stromversorgung verbunden wer- 


Floppyanschluß CPC 
(SIDE) 3, ‚Gnd 
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32 (SIDE SELECT) 


Laufwerk 2D 


den darf, da sich sonst die beiden 
Geräte aufgrund der gemeinsamen 
Masseleitung gegenseitig beeinflus- 
sen würden. Im Schaltplan sind, 
nur um den Anschluß zu verdeut- 
lichen, beide Sticks mit Stromver- 
sorgung versehen. Man muß sich 
also beim Dauerfeuer für Stick 1 
oder 2 entscheiden. Der zweite An- 
schluß kann aber auch weggelassen 
werden, falls man es vorzieht, 
immer alleine zu spielen. Die An- 
schlüsse in der Schaltskizze sind je- 
weils steckerseitig gezeichnet. Nach- 
dem auch diese Unklarheit besei- 
tigt ist, kann es losgehen. Das All 
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dürfte bald wieder den CPC-De- 
fendern gehören. 


_ ZWEITER SCHREIB-/LESEKOPF 


KANN GENUTZT WERDEN 


Ein ganz anderes Problem —diesmal 
ernsthafter Natur — sind Doppel- 
kopflaufwerke am CPC. Schon oft 
berichteten wir in Schneider aktiv 
über den preiswerten Einbau eines 
Zusatzlaufwerkes. Viele Laufwerke 
die zufällig vorhanden waren oder 
die für unseren Bauvorschlag einge- 
kauft werden konnten, besitzen an 
der Unterseite einen zweiten Schreib-/ 
Lesekopf, der leider brachliegen 
mußte. Da die CPC’s diese Floppies 
nicht so softwaremäßig unterstützen, 
gab man sich mit der einen Seite der 
Diskette zufrieden; Hauptsache, 
man hatte sein 3.5 oder 5.25 Zoll 
Format mit den etwas preiswerte- 
ren Disketten. Doch mit einem 
kleinen, leicht auszuführenden Ein- 
griff können der bislang ungenutz- 
te Kopf und die zweite Disketten- 
seite endlich genutzt werden. Hier 
das „Know-how“, welches dem CPC 
bisher fehlte. 


KLEINER UMSCHALTER 
IST ZWECKMÄSSIG 


Entscheidend bei der Kopfwahl ist 
das SIDE SELECT Signal. Dieses 
liegt beim Schneider im Betrieb fest 
auf dem High Potential und damit 
ist dann immer Kopf 1 gewählt. Um 
aber Kopf 2 anzuwählen, ist 

Low Potential nötig. Um dies zu 
simulieren, legt man einfach den 
SIDE Anschluß des Laufwerkes 
weg vom CPC auf Masse (zum Bei- 
spiel Gehäusechassis oder Stecker- 
anschluß Ground). 
Zweckmäßigerweise baut man sich 
in das Gehäuse seines Zweitlaufwer- 
kes einen kleinen Umschalter (Skizze 
2) der in die aufgetrennte SIDE- 
Ader des Floppykabels geschaltet 
wird. Achtung: Nicht auf Pol 3 des 
CPC Anschlusses, sondern Pol 32 
der Floppy auf Masse schalten. Im 
Betrieb erweist sich der Schalter als 
sehr praktisch, kann doch jederzeit 
zwischen den beiden Seiten hin- und 
hergeschaltet werden. 

Vor der Nutzung der Rückseite ist 
diese natürlich mittels DISCKIT 
oder COPYDISC zu formatieren. 
Die Verwendung von doppelseitigen 
Disketten (2D) ist anzuraten. Hat 
man bisher jedoch Markenware be- 
nutzt, kann man auch erst einmal 
versuchen, diese auf der Rückseite 
zu formatieren. In 90% aller Fälle 
tritt kein Lesefehler auf, zumal 

der CPC eine geringe Schreibdich- 
te nutzt. 3 (Wilhelm Fähndrich) 


TIPS & TRICKS Schneider 


GEWUSST WIE: 
DRUCKER- 
ANPASSUNG 


Kurz nach der Anschaffung eines Computers wünscht sich jeder 
einen Drucker, denn was nutzt die schönste Textverarbeitung, wenn das 
Ergebnis nur auf dem Bildschirm zu bewundern ist? Noch vor 2 Jahren 
stand nur ein Typenraddrucker zur Wahl, wenn der Ausdruck 
einigermaßen Qualität haben sollte. Der Matrixdrucker war mitleidig 


belächeltes Zubehör zum Homecomputer und gerade gut genug, um Listings 


auszugeben. Mittlerweile hat sich das Bild gewandelt. Die Mechanik, 
die den Drucker überhaupt teuer machte, wurde durch die Massen- 
anfertigung preiswerter, die Qualität der Teile wurde besser und heute 
fällt es schwer, ohne Lupe einen NLQ-Matrixausdruck von 
dem einer Schreibmaschine zu unterscheiden. 


Kauft man irgendeinen Drucker, 
der nicht gerade vom Hersteller des 
Computers ist, stellen sich 

schnell Probleme ein. Es geht um 
Schnittstellen, Steuerzeichen und 
Bit-Image-Modus — für den Einstei- 
ger ein neues Lexikon an Fremd- 
wörtern. Selbst wenn — vielleicht 
dank eines Programmes — irgend- 
wann einmal die Installation voll- 
bracht ist, sind nicht alle Fragen 
geklärt. Und wer jetzt noch einige 
besondere Probleme des Schneider 
CPC kennt, der weiß, daß ein wenig 
Grundwissen über den Matrixdruk- 
ker nicht schaden kann. 

„CPC mit paralleler Schnittstelle‘‘; 
Jene, die damals diesen Satz in der 
Werbung lasen, glaubten wohl 

noch längere Zeit an einen genorm- 
ten parallelen Ausgang, wie ihn die 
meisten Drucker im Handel haben. 
Wer hatte nicht das Durcheinander 
des Commodore C64 vor Augen, 
dessen Drucker mal an den Userport, 
mal an eine serielle Buchse paßten. 
Jeder Anwender war zumindest 

auf die Zubehörindustrie angewie- 
sen, die recht teure Interfaces anbot, 
damit auch Fremdfabrikate ange- 
schlossen werden konnten. Wir wol- 
len das kleine Problem beim CPC 
nicht überbewerten, aber auch die 
parallele Schnittstelle von Schneider 
fiel aus der üblichen Norm. 


EINGANG FÜR DATEN: 
DIE SCHNITTSTELLE 


Wir haben in Skizze l1 einmal den 

Ausgang des CPCs mit dem Eingang 
eines Centronics-kompatiblen Druk- 
kers gegenübergestellt, soweit es die 


aktiv) 


Der entscheidende Anschluß wird 
im Zusammenhang mit dem Strobe- 
Signal genutzt, um die Gültigkeit 
der Datenbits anzugeben. 

Das Strobe-Signal wird in der 
Schriftform immer mit einem Quer- 
strich über dem Wort angezeigt. 
Dies bedeutet, daß die Leitung stän- 
dig eine Spannung führt und das 
eigentliche Signal nur im Herabset- 
zen (LOW), bzw. wieder Erhöhen 
(HIGH) dieser Stromstärke besteht. 
Das gleiche Prinzip wird auch auf 
der Aknowledge Leitung (ACKNLG) 
verwandt. Die „Anerkennungslei- 
tung‘ — wie man es genau über- 
setzen müßte — nutzt der Drucker, 
um dem CPC klar zu machen, daß 
er ein Signal empfangen hat und das 
nächste haben will. Hierzu wird die 


Spannung niedrig geschaltet. 

Ganz normal, nämlich als kurzes 
Signal, wird die BUSY-Leitung ange- 
steuert. Mit diesem Kabel prüft der 
CPC,ob ein Drucker angeschlossen 


Fast schon vergessen: Schneider NLO 40 


ersten 11 Pins betrifft. Wenn Sie 
die Handbücher des CPC 6128 und 
des 464 haben, können Sie feststel- 
len, daß im kleineren Vorläufermo- 
dell für die Schnittstellenbelegung 
alle 8 Bits (von O bis 7) aufgeführt 
werden, für den großen Bruder je- 
doch nur 7 Bit (von O bis 6). Zwar 
unterscheiden sich die beiden Gerä- 
te in der Steckerform, die Pinbele- 
gung ist aber gleich. Die Skizze für 
den 6128 ist dabei korrekt, auch 
weil sich hier zeigt, daß an Pin 9 
statt des achten Datensignals ein 
GND (Ground für Masse) anliegt. 
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und ob dieser betriebsbereit im 

ON LINE-Zustand ist. Es gibt für 
den korrekten Datentransport noch 
einige andere wichtige Leitungen, 
etwa das PAPER-END-Signal oder 
das AUTO FEED-Kabel. Die Bedeu- 
tung wird im Anhang aufgeführt, 
des weiteren sind sie jedoch nicht 
so wichtig, da ihr Zweck unter Um- 


DIP-SCHALTER: 
OFT GESUCHTES 
MÄUSEKLAVIER 


ständen per DIP-Schalter oder durch 
die Software beeinflußt werden 
kann. 

Damit sind wir auch schon bei den 


| aktiv) 


DIP-Schaltern, mit denen die 
Standardeinstellung des Druckers 
verändert werden kann. Leider hat 
man sich hier noch nicht zu einer 
Norm entschließen können, die we- 
nigstens die grundsätzlichsten Op- 
tionen einschließt. Je mehr Features 
ein Matrixdrucker zu bieten hat, 
desto mehr Einstellungsmöglichkei- 
ten sind gegeben. Der kleine Schnei- 
der NLQ 401 kommt da noch mit 

8 Schaltern aus, das letzte Modell, 
der CMP 4000, benötigt 12 und es 
gibt Hersteller, die ihre Geräte mit 
32 An-/Ausschaltern versehen. Auch 
daß sich einige Firmen einen Sport 
daraus machen, den kleinen Schalt- 
kasten so gut wie möglich zu ver- 
stecken, hat schon manchen Käufer 
geärgert. Denn wie wichtig die 
DIP-Schalter für den Druckerbe- 
trieb sind, soll einmal die Miniaus- 
wahl des NLQ 401 aufzeigen. 

Der erste Schalter entscheidet über 
die Papierlänge. Ist er eingeschaltet, 


INTERNATIONALER 
ZEICHENSATZ: 
DREI SCHALTER — 9 LÄNDER 


dann geht der Drucker von einer 
12 Zoll hohen Formularlänge aus. 
Dies ist die übliche . Länge eines 
Endlosblattes, während man in der 
Aus-Stellung des Schalters 11 Zoll 
Papier benutzen kann. Für sich be- 
sehen ist dieser Schalter natürlich 
unsinnig, aber spätestens wenn 
nach der Zeile x ein Seitenvorschub 
befohlen wird, muß der Drucker 
wissen, wie lange das Papier wirk- 
lich ist. Auch die Größe des Line 
Feeds, des Zeilenvorschubs, kann 
durch einen DIP-Schalter beein- 
flußt werden. Der Anwender hat 
die Wahl zwischen dem engen 1/8 
oder dem etwas besseren 1/6 Zoll 
Abstand. 

Die meisten Drucker bieten einen 
zweiten Zeichensatz. Dieser kann 
mit Grafiksymbolen belegt werden 
(etwa IBM) oder er enthält eine an- 
dere Schriftart wie die Kursiv- 
bzw. Schrägschrift. Es gibt sogar 
Geräte, bei denen dieser zweite 
Satz selbst definiert werden kann 
und bei Bedarf durch diesen drit- 
ten DIP-Schalter abgerufen wird. 
Beim NLW 401 wird etwas Ver- 
schwendung betrieben. Der zweite 
Satz ist letztlich eine Kopie des 
ersten, lediglich die deutschen Um- 
laute wurden eingetauscht. Norma- 
lerweise wird die Wahl des landes- 
spezifischen Zeichensatzes anders 
geregelt. 

Den Zeichensatz eines Landes be- 
stimmt man im allgemeinen mit 
mindestens zwei Schaltern, die der 


TIPS & TRICKS 


Drucker zusammen beachtet. Aus 
der Kombination ergeben sich näm- 
lich schon 4 Möglichkeiten (AUS- 
AUS, AUS-AN, AN-AUS, AN-AN), 
um Umlaute oder Sonderzeichen zu 
berücksichtigen. Mit drei Schaltern 
lassen sich schon 9 verschiedene 
Kombinationen erreichen, die je- 
weils für einen spezifischen Zeichen- 
satz gelten. 

Für die DIP-Schalter finden sich in 
der Regel auch zwei Pegelsignale 
wieder, die immer Spannung führen 
und nur zwischen hohem und nied- 
rigem Pegel unterscheiden. Es sind 
dies das CR (Carriage Return) und 
der SLCT IN (Select in) Schalter. 
Das Carriage Return führt ja auch 
die Bezeichnung AUTO FEED. Da- 
mit macht der Drucker automatisch 
einen Wagenrücklauf und führt einen 
Zeilenvorschub durch. Unter Um- 
ständen treten dadurch Schwierig- 
keiten auf, weil auch der Computer 


einen entsprechenden Befehl sen- 
det. Das beste Beispiel ist der CPC, 
der bei Listing-Ausdruck ebenfalls 
ein Carriage Return losschickt. Ist 
der DIP-Schalter falsch eingestellt, 
dann erhält man seinen Ausdruck 
mit einem verschwenderischen 
doppelten Zeilenabstand. 

Der Select in Schalter befähigt den 
Drucker, die Dialogform mit dem 
Computer zu wählen. Ist das Span- 
nungssignal niedrig, dann gilt der 
Drucker als angewählt und ist zum 
Empfang der Daten bereit. Mit 
hohem Pegel kann der Drucker auf 
XON/XOFF-Signale antworten, 
d.h., man kann das Gerät mit 
Steuerzeichen (einer Controll- 
Tastenkombination) beeinflussen. 
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Wie schon erwähnt, liegen die DIP- 
Schalter an den unmöglichsten 
Stellen und es wäre sehr umständ- 
lich, sie zum Beispiel jedesmal zu 
ändern, bloß weil man für ein einzi- 
ges Exemplar einmal einen anderen 
Zeilenabstand wünscht. Dies ist 
aber auch gar nicht nötig. Der An- 
wender muß lediglich ein Signal 


DIE STEUERZEICHEN: 
DIE DIP-SCHALTER DER 
SOFTWARE 


an seinen Drucker senden, um ihm 
klar zu machen, daß ein Parameter 
geändert werden soll. Damit sind 
dann auch eine ganze Reihe Optio- 
nen mehr möglich — etwa Unter- 
streichen oder Fettdruck — als mit 
den Hardware-Schaltern. Aber wie 
erkennt ein Drucker überhaupt, 


Nur noch mit einer Lupe zu finden: ver- 
re Dip-Schalter unter dem Druck- 
o 


daß ein Signal nicht zum Abdruck 
bestimmt, sondern als Steuerbefehl 
zu werten ist? 

Mit sieben Bit können unter allen 
Kombinationen bereits 128 Zeichen 
ausgegeben werden. Nach einer 
Norm, der American Standard Code 
for Information Interchange (ASCH), 
werden aber nur die Zeichen 32 bis 
127 belegt. Mehr wird nicht zur Dar- 
stellung des Alphabets, der Zahlen 
und einiger Sonderzeichen benötigt. 
Was darunter liegt, steht den Com- 
puterherstellern als Steuerzeichen 


zur Befehlseingabe zur Verfügung. 
Dieses Wissen ist natürlich auch den 
Druckern eingegeben. Welche Steuer- 
zeichen der Drucker letztendlich wie 
interpretiert, ist nirgends festgelegt. 
Trotzdem hält man sich vernünfti- 
gerweise an eine — nie offiziell ver- 
kündete — Norm. Eine Code-Anwei- 
sung mit CHR$(10) würde ei- 

nen Zeilenvorschub bewirken, 
CHR$(12) einen Seitenvorschub. 
Wenn Sie sich jedoch einmal überle- 
gen, welche Leistungsdaten Drucker 
heutzutage bieten, dann merken 

Sie schnell, daß man mit 31 Befeh- 
len nicht auskommen kann. Für je- 
de besondere Schriftart sind ja 
schon zwei Befehle nötig, einmal 
zum Einschalten, einmal zum Aus- 
schalten. Es gibt deshalb die soge- 
nannte ESCAPE-Sequenz. Diese 
wird mit der Code-Nummer 27 
(Hexadezimal. 1B) eingeleitet und 
der Drucker weiß, daß die nachfol- 


dezimal, wird in manchen Fällen so- 
gar das druckbare Zeichen für die- 
sen Code benutzt. Alle drei Metho- 
den funktionieren natürlich und es 
bleibt dem Anwender überlassen, 
für welche Möglichkeit er sich ent- 
scheidet. Sogar eine bunte Mischung 


wie 
“PRINT#8,CHR$(&1B);“-“: 
CHR$(1)“ 


führt zu dem Ergebnis: Unterstrei- 
chen an. 


NADELDRUCKKOPF — ALTE 
DRUCKTECHNIK NEU GENUTZT 


Einer der Steuersequenzen schaltet 
den Bitbildmodus an. Damit kann 
jede einzelne Nadel des Druckkop- 
fes direkt angesprochen und Gra- 
fiken können ausgegeben wer- 

den. Um dafür etwas Verständnis 
aufzubringen, schauen wir uns noch 
den Druckkopf an. 


Skizze: Unterschiedliche Pinbelegung 


GPG-Ausgang 


Die verschiedene Belegung der angeblich 
„Kompatiblen‘ Schnittstelle 


genden Zeichen von ihm als Befehl 
interpretiert werden müssen. Um 
beim NLQ 401 zu bleiben, schaltet 
also die Folge “CHR$(27);chr$(45); 
CHR$(1);“ die Schriftart Unterstrei- 
chen ein und “CHR$(27);CHR$(45); 
CHR$(2);“ schaltet aus. 

Mit diesen Sequenzen ist allerdings 
auch schon Schluß mit der still- 
schweigend benutzten Norm. Eben- 
so willkürlich scheinen die Hand- 
bücher zu den Druckern ausgewählt. 
Während der Code einmal dezimal 
angegeben und ein anderes Mal hexa- 


Im Vergleich zu neuen Technolo- 
gien, etwa den Ink-Jet oder den 
Laser-Druckern, stellt das Nadelprin- 
zip geradezu ein altertümliches Ver- 
fahren dar, verursacht aber auch 

die wenigsten Probleme. Beim heu- 
te geltenden Standard sind in 9 Rei- 
hen jeweils neun Nadeln dargestellt, 
die elektromagnetisch bewegt wer- 
den. Über ein Farbband werden so 
die Punkte zu Papier gebracht, die 
in einem Raster besehen den Buch- 
staben ergeben. Versetzt man diese 
Punkte für das gleiche Zeichen um 
einen geringen Abstand und druckt 
noch einmal, so erscheint die 
Schrift sauberer. Diese Option 
nennt man NLQ (Near Letter 
Quality — Beinahe Briefqualität). 
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TIPS & TRICKS 


Nebenbei sei erwähnt, daß es noch 
Drucker der älteren Bauart gibt, die 
mit 7x7 oder gar nur 7x5 Nadeln 
auskommen, während Spitzenge- 
räte bereits mit 24 Nadeln arbeiten. 


WIE IMMER NOCH EIN PAAR 
STICHWORTE ZUM ABSCHLUSS: 


STROBE: Taktsignal mit ständigem 
Spannungspegel. Wenn die Leistung 
auf LOW (niedrig) steht, ist ange- 
zeigt, daß korrekte Daten vorliegen. 
ACKNLG: Antwortsignal des Druk- 
kers, ebenfalls mit ständigem 
Spannungspegel. Mit LOW wird 
signalisiert, daß die empfangenen 
Daten abgearbeitet sind und der 
Drucker für das nächste Zeichen be- 
reit ist. 

BUSY: Ständiger Spannungspegel. 
Mit LOW ist der Drucker zum Emp- 
fang bereit, HIGH kann Fehler anzei- 
gen oder bedeutet, daß der Drucker 
BannE beschäftigt ist. 

E (Paper End): Schaltzustand oder 
Leitung für das Paper End Signal. 
SLCT (Select): Teilt durch Span- 
nungspegel mit, ob der Drucker 
bereit ist. 

SLCT IN: Im LOW-Zustand ist der 
Drucker zum Datenempfang bereit, 
im HIGH-Zustand kann der Drucker 
auf XON/XOFF-Signale antworten. 
AUTO FEED: Wenn die Leitung 
LOW ist, wird zu jedem Wagenrück- 
lauf automatisch ein Zeilenvor- 
schub ausgeführt. 

CR (Carriage Return): Steuerzei- 
chen zum Wagenrücklauf. Bringt 
den Druckkopf wieder in die linke 
Ausgangsstellung. 


Zeig beim Porto 
& Verstand: 


Herz 


Ta 


Wohlfahrts- 
briefmarken. 
Schöne Motive — 
für Hilfe, die ihr 
Ziel erreicht. 


| aktiv) 


HISOFT 
HARD- 
coPY 


Immer ist die Rede von der Programmiersprache 
Pascal. Es wird Zeit, daß der HiSoft-Interpreter mal 
ein bißchen Tempo macht und zeigt, was in ihm 
steckt. Nichts ist dazu besser geeignet als eine Hard- 
copy. Schließlich weiß jeder, welche ermüdenden 
Wartezeiten auf ihn zukommen, wenn er versucht, 
den Bildschirm mittels Basic auszudrucken. 
Vergleichen Sie doch einfach selbst einmal, Sie wer- 
den sehen, HiSoft zeigt dem Schneider Basic die 
Auspuffrohre. 


LAUFFÄHIG AUF DEM DMP 2000 MIT 
ANPASSUNG FÜR „EXOTEN“ 


Gehen wir gleich in medias res. Die Hardcopy ist für 
den DMP 2000 geschrieben, läuft aber jedoch auf 
allen Epson-kompatiblen Druckertypen. Für andere 
Geräte sollten Sie einfach nach Handbuch die Steuer- 
zeichen ändern, die in den Kommentarzeilen ange- 
geben sind. 

Wichtiger Bestandteil des Programmes ist die Routine 
“POUT“, welche dazu dient, ein Zeichen auf den 
Drucker auszugeben. Hierfür ist zwar auch eine Firm- 
ware-Routine vorhanden — wird mancher einwenden - 
sie wartet jedoch nicht, bis der Drucker bereit ist. 
Wer das Handbuch zu HiSoft aufmerksam gelesen 
hat, kennt die Lösung des Problems bereits. Es wurde 
auf der vierten Ebene noch eine Funktion aufgebaut. 
Sie trägt die Bezeichnung “PREADY“. 


Die Funktion Test arbeitet ähnlich wie in Basic, doch 
unterscheidet sie nur zwischen “Punkt gesetzt‘ 
(= TRUE) und “Punkt nicht gesetzt“ (= FALSE). 
Unter Basic kann man bekanntlich noch die Farbe 
berücksichtigen. Im Pascal-Programm hilft eine kleine 
Firmware-Routine, deren Einsprungs- und Rückgabe- 
paramaieE Sie leicht aus dem Quelltext herauslesen 
Önnen. 


TIPS & TRICKS 


Die Hardcopy selbst ist reine Rechenarbeit. Zu beach- 
ten ist hierbei nur, daß vertikal jeweils zwei Punkte 
übereinstimmen. Das erstpart drei Test-Aufrufe, muß 
jedoch bei der Ansteuerung von insgesamt 6 Nadeln 
des Druckkopfes berücksichtigt werden. 

Den Trick, eine Schleife mit einer bestimmten Schritt- 
weite arbeiten zu lassen, kennen Sie sicher schon. 
Hier wird innerhalb der FOR-Anweisung um 5 ver- 
ringert, DOWNTO substrahiert noch 1 — ergibt eine 
Schrittweite von —6. Die Puristen unter den Pascal- 
Usern verabscheuen diese Methode allerdings. Doch 
was soll es; Hauptsache es funktioniert. Um den Au- 
tor aber vor der Briefflut zu retten, die diese Be- 
merkung sicherlich auslösen würde, sei gesagt: Nicht 
jedes lauffähige Programm ist alleine deshalb gut, weil 
es läuft. Vor allem in Pascal sollte man den Spaghetti- 
Code tunlichst vermeiden. Der kleine Schleifentrick 
ist der Übersichtlichkeit aber eher zu- denn abträglich. 
Motto: Keine REPEAT-Schleifen anwenden (... wo 
sie vermeidbar sind). 

Die Hardcopy-Routinen werden Sie wahrscheinlich 
oft in eigenen Programmen einsetzen. Sollte dort be- 
reits eine Test-Funktion in der hier beschriebenen 

Art enthalten sein, können Sie die Zeilen 350 bis 480 
natürlich weglassen. 


DRUCKERGEBNIS NICHT OHNE 
VERZERRUNG 


Ein Nachteil dieser Hardcopy sei Ihnen allerdings 
nicht verschwiegen: Sie ist nicht völlig verzerrungsfrei. 
Meist fällt dies allerdings nicht auf, schließlich erge- 
ben auch die wenigsten Basic- oder MC-Routinen ein 
korrektes Bild. Bei Grafikprogrammen allerdings — 
auf die wir hier auch noch zu sprechen kommen wer- 
den — fällt die Verzerrung unter Umständen frappant 
ins Auge. Richtig geraten: beim Kreis. 
Zum Abschluß dieser Folge möchten wir Sie daran 
erinnern, Ihr HiSoft-System möglichst nach der Anlei- 
tung aus Teil 2 auf Diskette zu kopieren. Das nächste 
Mal geht es nämlich um eine ‚echte‘“ sequentielle 
Dateiverwaltung, ohne TIN und TOUT. 

(Alwin Ertl) 
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Inn {FFHsHrHHinHissucHsnuccrsgeicgciicHnrenegnen 


SKEEHIERIERUERUIENUCHEER EUER NEEING 
118 {* HISOFT HARDCOPY Version 1.8 / DMP 2888 23/12/1986 * 
128 {* by Alwin Ertl * 


120 dHRERERTTEE EEE ESENEEREEEUENISSEIEERRIEEERERERRERHEHE ENG 
148 
158 PROGRAM hardcopy; 


168 
178 PROCEDURE hcopy; {fuer Schneider DMP 2288} 
188 VAR 
198 i, Jj, .0- JSinteger; 
288 
218 PROCEDURE pout (z : char); 
2208 
238 FUNCTION pready : boolean; 
248 BEGIN 
258 user (#bd2e); {mc busy printer} 
268 pready := NOT (odd(raf)) 
270 END; 
268 
298 BEGIN {pout} | 
388 WHILE NOT pready DO ; | 
318 Tor. 0.25 
328 user (#bd2b) {mc print char} 
338 END; 
3an 
358 FUNCTION test (x, y : integer) : boolean; 
' 368 VAR 
378 N: char; 
. 388 BEGIN 
398 TIET Erz rhlSieey; 
488 user (#Abbf®8); {gra test absolute} 
418 h ı=-na, 
428 IF h = chr(®) 
4308 THEN 
440 test := false 
458 ELSE 
468 test := true 
478 END; 
488 
498 BEGIN {hcopy} 
598 pout (chr(27)); pout (’x’); pout (chr(B)); {nlgq off} 
518 pout (chr(27)); pout ( ’1’); pout (chr( 18)); {left margin TO 18} 
528 pout (chr(27)); pout ( ’3’); pout (chr(16)); {line feed 16/216 inch}, 
538 pout (chr(27)); pout ( ’L’); pout (chr( 127)); pout (chr(2)); {grafmode} 
540 FOR i := 399 DOWNTO 3 DO 
558 BEGIN 
568 FOR j := 8 TO 638 DO 
5708 BEGIN 
5509 a.:=. 8; 
598 IF test (j,i) THEN a := a+32+64; 
688 IF test (j,i-2) THEN a := a+B+16; 
618 IF test (j,i-4) THEN a := at2+4; 
628 pout (chr(a)) 
6382 END; 
6408 pout (chr(18)); pout (chr(13)); {new line} 
658 pout (chr(27)); pout (’L’); pout (chr( 127)); pout (chr(2)); 
668 Ge 
678 END 
688 END; 
638 
788 BEGIN 
718 hceopy 
728 END. 


23 


rg 


_LISTING _ 


TERMIN-TASCHENRECHNER- 
KALENDER 


Eine gleichzeitige Dateiverwaltung von Termindaten 
und Kalkulationsformeln beinhaltet das hier abge- 
druckte Programm von unserem Autor Thomas 
Scheer. 

Eine Anzahl von 70 anstehenden Terminen wird je- 
weils chronologisch verwaltet und je nach Terminart 
(s.u.) automatisch zur Löschung markiert, wenn das _ 
Fälligkeitsdatum überschritten ist. Da das Programm 
sehr umfangreich ist, kann es bei großen Datenmen- 
gen gelegentlich zu kleinen Verzögerungen (Garbage- 
Collection) kommen, die durch Definition der 
Variablen “te%“ bei Programmbeginn beliebig beein- 
flußt werden kann (te% = Anzahl der möglichen Ter- 
mineintragungen). 

Das ausschließlich in Basic geschriebene Programm 
ist auf einem CPC 464 geschrieben worden und ist 
auch auf den Schwestern CPC 6128 / 664 kompa- 
tibel, sofern die Programmzeilen mit der “DEC$“- 
en entsprechend korrekt eingetippt 

werden: 


CPC 464: DEC$(( <AUSDRUCK> <STRING>) 
wie im Listing — 2 Klammern geöffnet. 


CPC 6128: DEC$( <AUSDRUCK> <STRING>) 

= 1 Klammer geöffnet!! 

Die nach Programmstart erscheinende Meldung soll 
dem Anwender nur beim allerersten Programmstart 
behilflich sein, wenn nämlich noch keine Datei mit 
der Bezeichnung “TERMIN.DAT“ auf der Diskette 
vorhanden ist. In diesem Fall kann die ausgedruckte 
Zeile (COPY-CURSOR) übernommen und somit die 
mißliche Lage beseitigt werden. 

Der nächsten Aufforderung, das Tagesdatum einzu- 
geben, muß unbedingt gewissenhaft Folge geleistet 
werden, da ansonsten das Programm fälschlicherweise 
annehmen könnte, ein bestimmter Termin sei bereits 
überschritten. 

Menüpunkt “D“: das Tagesdatum kann hierdurch 
korrigiert werden. 

Termine: 

Sie bestehen aus 3 Teilen: dem Datum, einer Kennung 
und einem Text. Zunächst wird das Datum des Ter- 
mins eingegeben, dann der Text, z.B. 12.11.1987, 
Tagung in Gießen. Das Programm berechnet übrigens 
automatisch zu jedem Datum/Termin den entsprechen- 
den Wochentag und gibt ihn aus. 

Die 3. Information eines Termins ist ein einziges Zei- 
chen, das entweder den Termin als immer wiederkeh- 
rend kennzeichnet (z.B. Geburtstag) oder als tempo- 
rär (Termin wird zur Löschung markiert, wenn das 
Tagesdatum den Termin überschritten hat). 

Die Terminsuche kann entweder über Suchcode (aus 
Text) oder nach Zeit geschehen. In letztem Fall kön- 
nen wiederum verschiedene Suchoptionen gewählt 
werden: automatisches Blättern im Terminkalender 
ab Tagesdatum (Option “N‘ — nächste Termine) Mo- 
natssuche oder Kalenderausgabe. 

Veränderung von Daten: Über Tasten E(Edit) oder 
L(Löschen) während der Suchoptionen. Bei jeder 
Datenänderung wird der entsprechende Termin wieder 
chronologisch einsortiert. 

Löschen: Automatisch werden, wie bereits erwähnt, 


die temporären Termine bei Beenden des Programms 
(X- Exit) zur Löschung markiert, wenn das Fälligkeits- 
datum überschritten ist. Bei neuem Programmstart 
werden dann die zur Löschung markierten Termine 
genannt und man kann entscheiden, ob sie endgültig 
gelöscht werden sollen. Ebenso werden alle Termin- 
daten behandelt, die durch die Löschoption (s.o.) 
markiert wurden. 

Kalender: Auf dem Bildschirm wird jeweils das Kalen- 
darium eines Kalendermonats ausgegeben. Sollte ein 
Termin gefunden werden, so wird der entsprechende 
Tag unterstrichen. Das Kalenderblatt kann — jedoch 
ohne Terminkennzeichnung — auch ausgedruckt 
werden. 

Ausdrucken (P) der kompletten Terminliste: Ein 
Drucker muß angeschlossen und arbeitsbereit sein!! 


RECHENOPTIONEN 


Der Taschenrechner: (R) 

Ziffern und Dezimalpunkt werden von der Tastatur 
akzeptiert, ebenso die (ENTER)-Funktion. Andere 
Funktionen (SIN, COS etc.) müssen über die Pfeil- 
tasten angesteuert und durch die (COPY)-Taste 
„angeklickt“ werden. 

Der Rechner besitzt keine Gleichheitstaste, er wird 
ähnlich wie ein Hewlett Packard-Taschenrechner 
bedient. 

Beispielaufgabe: 34 + (3/12.5) 

3 ENTER 12.5 (geteilt durch-Funktion) 34+ 
Protokollieren auf Drucker: ( P)-Funktion wirkt als 
Ein- und Ausschalter. Vorsicht: Der Drucker muß 
angeschlossen und arbeitsbereit sein! 
RAD/DEG-Funktion: Für trigonometrische Berech- 
nungen (SIN, COS, TAN) kann der gewünschte Mo- 
dus eingeschaltet werden, jedes Anklicken des Fel- 
des bewirkt ein Umschalten. 

Der „STACK“ dient zur Zwischenspeicherung von 
Werten (Zwischenergebnisse etc.). Sofern für eine 
Funktion mehr als ein Wert erforderlich ist (z.B. 
Addition), müssen beide Werte getrennt durch ENTER 
eingegeben werden, wobei sich der STACK erhöht ° 
und anschließend die Funktion aufgerufen werden 
(Berechnung erfolgt aus dem X- und Y-Register des 
STACKS und der STACK wird wieder erniedrigt.) 
Statistik (STAT)-Funktion: Eine Reihe von Werten 
eingeben. Nach dem letzten Wert ENTER drücken. 
Es wird daraufhin Anzahl (n), Summe (Sum), Mittel- 
wert (MW), Quadratsumme und die Standardabwei- 
chung ausgegeben. Die Wertereihe kann nach noch- 
maligem Anklicken von STAT erweitert werden. Um 
eine neue Wertereihe anzufangen, muß die Löschfunk- 
tion (“C“) angeklickt werden. 

Programmieren des Taschenrechners (PRG): Eine 
Berechnungsformel muß vom Formelmenü (F), aus- 
gehend durch “H‘“(-Hinzufügen) oder *N“—neu be- 
arbeiten) zur Programmierung vorbereitet werden. 
Sobald der Taschenrechner auf dem Bildschirm er- 
scheint, das PRG-Feld anklicken und “P“ für Pro- 
grammieren wählen. 


Bitte lesen Sie weiter auf Seite 32 
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12998 IHRES HEHE HER 
1808985 °* TERMINE,KALENDER, BECHNNDE 
18819 ’* VON 

189815 ’* THOMAS SCHEER #* 
189828 ’#* FUER * 
198925 ’* SCHNEIDER AKTIV * 
ına3Q ’* CPG 4564/664/6128 JE*® 
10035 "RERHEHEEHREHEEHCHEHEHHE EHE 
18848 ’664/6128-Besitzer muessen be 
i den DEC$-Befehlen die zweite oeff 
nende Klammer weglassen 

1988590 ’ 

18868 ON BREAK GOSUB 14288 

18978 IF HIMEM<A425808 THEN 18138 
189888 SYMBOL AFTER 258 

18898 SYMBOL 251,24,8,8,255,255,8,8 
‚24 

18189 SYMBOL 253,8,1,3,6,230,52,28, 
8 

18118 SYMBOL 254,9,255,3,136,88,32 
88, 136 

18128 OPENOUT ”"D":MEMORY HIMEM-1:CL 
OSEOUT 


18138 DIM bef$( 24) :FOR i=1 TO 24 
18148 READ x,y:bef$( i) -CHR$( 31) +CHRA 
$[ 3+2%#x) +CHA$( y+3) 
18158 FOR j=1 TO 3:READ a$ 
18169 IF LEFT$CAa$,1)="(”" THEN bef$l 
i)=bef$( i) +CHA$( VAL(MID$(a$,2))) EL 
SE bef$li)=-bef$(li)+a$ 
18178 NEXT:bef$( i)-LEFT$Cbef$l i) +" 
‚8) :NEX1:i$=" "+CHA$(24) +” " 
18188 eng$=CHR$( 29) *° Druckersteueru 
ng fuer 17 CPI 
18198 
19288 
18218 
18228 
18238 DATA 12,11,032,(0196,"P ",9,11 
‚STAT,(32,032,5,11,032,(184,(32 
18248 DATA 1,11,PRG,(32,(32,13,9,(2 
42,1153,0(32,9,9,(32,C,E,5,9,(32,C,( 
32 


DATAs fuer 
Funktionsnamen 


18258 DATA 1,9,EXIT,(32,(32,13,7,(3 
2,0159,(32,9,7,(32,*,(32 
19268 DATA 5,7,+,/,-,1,7,1,/,%,13,5 
‚(32,0 154,(32,9,5,(32,(251,(32,5,5, 
ka RR © 
10278 DATA 1,5,Y,",X,13,3,032,%,(32 
IB THAN, s, 3, (32, (253,( 254 
10288 DATA 1.3.X,",2,13.1,C,0 
‚8,1,N,5,1,XY,(248,(241,1,1,D 
19298 = 
18388 
1983108 
198329 
18338 te%=-798:DIM mo%( 12) ‚month 1%( 12 
),wot$(7) ,‚termin$( te%) ,formel$( 28) : 
RESTORE 13228:FOR i=1 TO 12:READ mo 
%Ci) :month1%( i) =month1%[ i-1) +mo%l( i) 


Vorbereitung und 
Einlesen der Datei 


: NEXT 

18348 FOR i=-1 TO 7:READ wot$(i) :wot 

$lLi)=-wot$li)+” ":NEXT 

183590 GOSUB 13428 

18368 LOCATE #4,3,2:PRINT#4A, "Datei" 

:LOCATE 5,5:PRINT"Datei TERMIN.DAT 

wird eingelesen. ”"CHA$( 18) ; TAB( 5) "Be 

i erster Programmbenutzung"”TAB(5)"e 

ingeben: 

18378 PRINT:PRINT TAB(5) "OPENOUT "C 

HR$( 34) "TERMIN.DAT"CHR$( 34) ": PRINT 

#9,8:CLOSEOUYT :RUN" :PRINT 

18388 OPENIN "termin.dat”: PEN 1:CLS 

: INPUT#9, Flags% 

18398 IF fFlags%=-® THEN flags%=--1:G0 

TO 18468 

18488 INPUT#9,date$,termin%, formel% 

:GOSUB 13498 

18418 zza%=8:FOR i=-1 TO termin%:zza 

%=-zza%+1: INPUT#9, termin$( zzo%) 

18428 IF MID$( termin$( 2za%) , 11,1) =" 

#" THEN CLS:PRINT MID$( termin$( zza% 

),?1,1®8) :PAINT MID$( termin$( zza%) , 12 

) :PRINT"endgueltig loeschen J/N":GO 

SUB 14158:IF w$="J" THEN 7z3%=zza%- 

I ELSE MID$L termin$( zza%) , 11,1)=" ” 

18438 NEXT:termin%=zza% 

18448 FOR i=1 TO formel%: INPUT#9,fo 

rmel$(i):IF LEN(formel$(i))<>255 TH 

EN INPUT#9,3$:formel$(i)=formel$(i) 

+SPACE$( 255-LEN( formel$( i))) :MID$CF 

ormel$( i) ‚MAX( 1,255-LEN( a$)) ‚LEN( a$ 

I))ra$ 

18458 NEXT 

18468 CLOSEIN: date$=LEFT$( date$+5PA 

CE$( 198) , 18) :CLS:LOCATE 5,5:G0SUB 13 

498:G05UB 13138:heute$=date$:tx=tB: 

LOCATE #1,1,1:PRINT#1,wot$;", der"; 

:LOCATE#1,1,2:PRINT#1,date$; 

18478 LOCATE 12,18:PRINT"War te 

n":FOR i=-1 TO termin%: IF MID$(termi 

n$(i),11,1)="#" THEN 18508 ELSE yea 

r=VAL(MID$(termin$(i),7,4)) 

18488 IF VAL(MID$( heute$,7,4))>year 
THEN MID$( termin$( i) ,7,4) =MID$( heu 

te$,7,4) 

18498 IF VAL(MID$(termin$l i),4,2))* 

31+VAL( MID$( termin$( i) , 1,2)) <31*mon 

th+day THEN MID$( termin$( i),7,4)=RI 

GHT$ESTRA$CVAL(MID$Cheute$,7,4))),4) 

1588 NEXT 

1851®@ : 

18528 PRINT#S, 

18538 : 

18548 ° =======-== 

18558 ° Hauptmenue 

108568 ° ========== 

18578 : 

18588 CLS:LOCATE 7,18:PRINT"Termine 
/ Kalender / Taadienruähber® 


"Auswahlmenue" 


25 


:LOcAT 39 


LISTING 


k 18, 12:PRINT CHRA$( 164) ;*" 

Scheer" 

18598 GOSUB 134998:CL5#3:PRINT#3,CHR 

$( 10)" *Termin#","P=Liste( "P)”,"D= 

Datum korrigig." ,"5=-S5uchbegiff", "M= 

Monat suche”, "N=Naechste Termine","T 

=-Termineingabe”,, "K=-Kalendarium"CHR$ 

(19) 

18688 PRINT#3,” *#Rechner#", "RA=Tasc 

henrechner"”, "F=Formeln"CHRA$( 18) ,"” 
*Quit#", "X=Ende/Save” 

18618 GOSUB 14158 

18628 kh%=INSTR( "PDSMNTKRXF",w$) :IF 
kh%=® THEN 19618 

18638 CLS:CLS#3:0ON kh% GOSUB 180641, 
10650, 10730, 10770, 108808, 11118, 11198 
‚11438, 13518, 13680 

18648 GOTO 18588 

18641 PRINT48:FOR i=1 TO termin%:PR 
INT#8,termin$( i) :NEXT :RETURN 

10650 * =========== 

18668 ° Datum korr. 

18670 * =-========-== 

18688 date$=heute$:CLS:LOCATE 5,5:6G 

OSEUB 13499:G605UB 13138: heute$=date$ 
:tx=t9:CLS#1:PAINT#1,wot$;", der";: 

LOCATE#1,1,2:PRINT#1,date$; :RETURN 
19698 : 

18708 
18718 
19728 ° 
18738 PRINT#3,”"** Terminsuche ##";Pp 

RINT#3:PRINT#3,"nach Suchbegriff":I 

NPUT "Suchbegriff ",s$:s$=UPPER$( s$ 

):s1%=-12:52%=38:G0TO 198788 

18748 ’ 
18758 
108768 
18778 PRINT43,"*# Terminsuche ##":p 

AINT#3:PRINT#3,”"nach Monat”:a$=" "” 
:v$="99":PAINT"Monat :"; :p=POS( #8) :v 
=VPOS( #98) :GOSUB 13258: s$=RIGHT$L( " 

"+STA$LVAL(a$)) ,2) :s1%=4:52%=2:L0CA 
TE p,v:PRINT s$ 

18788 FOR i=-1 TO termin%:IF INSTRCM 
IO$( UPPER$(termin$(li)),s1%, s2%) ,s$) 
»=1 THEN GOSUB 18888:IF w$="X" THEN 
RETURN 

18798 NEXT :RETURN 

18800 ’ 
188108 
188208 de 
18838 s$-MID$CHEUTE$,7,4) +MID$( HEUT 

E$,4,2) +MID$( HEUTE$, 1,2) :PRINT#3,"* 

* Terminsuche *##" 

18848 FOR i=1 TO termin%:IF s$<=MID 

$ltermin$(i),7,4)+MID$( termin$l( i),4A 
‚2)+MID$( termin$( i), 1,2) THEN GOSUB 
19888 

18858 IF w$="X" THEN RETURN 


1987 Th. 


== _ m. .=——-— — -——— —-——-—-—.——m 


Termine nach Begriff suchen 


Termine nach Monat suchen 


zz = = 2 zz zz m zz zz co zz -— = 


zz zz m: zo 


naechste Termine 


18868 NEXT :RETURN 
18878 ’ 
18888 
n 
18898 
18988 PRINT:PRINT i$"DATUM : ";:p=P 
0S( #8) :v=VPOS( #8) :PRINT MID$( TERMIN 
$(1),1,18);" ";:day=VAL( MID$( TERMIN 
$CI),1,2)) 
18918 month=VAL( MID$( TERMIN$(I),A4,2 
)) :year=VAL( MID$( TERMIN$CI),7,4)):6G 
DSEUB 13898: PAINT wot$;i$;:IF tO>=-tx 
THEN PRINT " noch"t@-tx;"Tage”; 
18928 IF MID$(ltermin$li),11,1)=-"*" 
THEN PRINT " geloescht" 
18938 IF MID$Ltermin$(i), 11,1)="4" 
THEN PRINT " #temp.*" ELSE PRINT 
18948 PRINT:PRINT MID$( termin$(i),ı 
2) 
18958 CLS#3:LOCATE #3,1,4:PRINT#3,i 
$"L=Loeschen "i$;TAB( 1)i$"E-Editier 
en”i$; TAB( 1) ;i$"X=Abbruch "i$ 
18968 GOSUB 14158 
18978 IF w$="L” THEN CLS#3:PRINT#A3, 
CHRA$( 18) "Loeschen Sicher ?":GOSUB 1 
4178:C1.543:IF w$="J3" THEN MID$( term 
in$l 5), 11,1)="*" 
108988 IF w$="X"” THEN RETURN 
18998 ii=i:IF w$<>"E” THEN 11188 EL 
SE p=1:v=1:IF i<>termin% THEN a$=te 
rmin$(i):FOR j=i TO termin%-1:MID$( 
termin$( 3) , 1,58) =termin$( 3+1) :NEXT: 
MID$( termin$( termin%) ,‚ 1,58) -a$ 
11888 i=-termin%:CLS:date$=MID$( term 
in$(i),1,1®) :G05SUB 1313@8:MID$( termi 
n$(i),1,18)-date$:LOCATE p,v:PRINT: 
PRINT ">"; :p=POS( #8) :v=VPOS( #8) :v$= 
SPACE$( 38) :a$=MID$( termin$(i), 12) :P 
RINT a$;"<":G0O5UB 13258 
11818 MID$Ctermin$(i), 12,38) =a$:PRI 
NT:PARINT TAB(5) "Temporaer J/N ”; 
11828 GOSUB 14178 
11838 PRINT w$:IF w$="J3" THEN MID$( 
termin$(i),11,1)="4" 
11848 IF w$="N" THEN MID$(termin$li 
DR RE 
11858 ° 
11868 
11878 * 
110888 a$=SPACE$(5B) :WHILE MID$( term 
in$(i),7,4) +MID$( termin$(i),4,2) +MI 
D$Etermin$(i), 1,2) <MID$L termin$li-1 
),?,4) +»MID$ltermin$( i-1) ,4,2) +MID$( 
termin$( i-1),1,2) 
11898 MID$Ca$, 1,58)=termin$( i) :MID$ 
(termin$(i),1,5®8)=termin$( i-1) :MID$ 
(termin$( i-1),1,58) =a$:i=-i-1:WEND 
11188 i=ii:PAINT: RETURN 


= zum a za ss sem oem oo mon 


* Ausgabe/aendern von Termine 


ss =— zo „za mm m m zoom m zz zz > 


= = m m; zz 


einsortieren 


11118 : 
11128 


11138 ” Termin neu eingeben 
11148 I zum emoecrmmoomomoeceo 
11158 CLS#3:PRINT#3,5TRING$(4, 18) ;" 


Termineingabe" 
11168 IF termin%>te% THEN RETURN EL 
SE termin%-termin%+1:termin$( termin 


%) -heute$+SPACE$( 39) :GOTO 11888 


11-178 : 
11188 


11198 
11208 
11218 CLS#3:PRINT#3, "Kalender" 
11228 PRINT:INPUT "Jahr ",year:INP 
UT "Monat "”,month:IF year<1585 OR y 
ear>2188 OR month<1 OR month>12 THE 
N month=VAL(MID$( heute$,4,2)) :year= 
VAL(MID$(heute$,7,4)) 

11238 PRINT:PRINT"Soll das Kalendar 
ium gedruckt werden J/N ?"”:dr%=8:60 
SUB 14158 

11248 IF w$="J" THEN dr%=B 

11258 da=1 

11268 CLS:PRINT #dr%:FOR i=1 TO 7:P 
RINT #dr%, TAB( 1+5*#i) ;LEFT$(wot$(i), 
2) ; :NEXT:PRINT#dr%, TAB( 43) ;MID$( "JA 
NFEBMAEAPRMAIJUNJULAUGSEPOKTNOVDEZ” 
‚1I+Cmonth-1)#3,3);" ";year:PRINT # 
dr% s 

11278 PRINT:FOR day=1 TO mo%( month) 
-(month=2 AND year MOD 4=8) 

11288 GOSUB 13898:PRINT #dr%,TAB( 1+ 
wot%#5) ;RIGHT$(” "+STR$(day) ,2);:I 
F dr%=8 THEN 11348 

11298 FOR d=da TO termin%:IF VAL(MI 
D$ltermin$(d),1,2))<>day THEN 11338 
11388 IF VAL(MID$Cltermin$( d),4,2))< 
>month THEN 11338 

11318 IF MID$Cltermin$( d),11,1)=" ” 
OR VAL(MID$(termin$( d),7,4))=year T 
HEN PRINT#3,i1$;MID$( termin$( d) , 1,6) 
;i$:PRINT#3,MID$(termin$(d),11) ELS 
E GOTO 11338 

11328 MOVE 4+8*POS( #8) ,382-16*VPOS( 
#8) :DRAWR -26,8:MOVER ®,-2:DRAWR 26 
‚@:da=d 

11338 NEXT 

11348 IF wot%=7 THEN PRINT #dr% 
11358 IF wot%=7 THEN PRINT #dr,CHR$ 
( 18) 

11368 NEXT:PRINT#dr%: PRINT #3,"Fort 
fahren J/N”; 

11378 GOSUB 14158 

11388 IF w$="N"” THEN RETURN 

11398 month=month+1:IF month>12 THE 
N year=year+t1i:month=1 

11488 LOCATE #3,1,VPOS( #3) :PRINT#£3, 
ot ":G0T0 11268 


11418 : 


LISTING 


114290 

114308 ” 
11448 

11458 dru%=®8:DON BREAK GOSUB 14188 
11468 IF runmo% THEN 11488 

11478 runmo%=8:prmo%=8:CLS:PRINTA3, 

CHR$( 18)” *#Rechner*"”:PRINT#3:PRINT 

#3,"Rueckkehr"”;"” zum";” Menue”; "dur 

ch”;” Bewegen"”;” des”;"” Funktionsfe 

1das”;” auf”; -EXIE" 7 und, TEOPY 

1”":IF wahl% THEN PRINT#3:PRINT#3,"”g 

ewaehlte Formel:",MID$( formel$( wahl 

%),1,18) 

11458 LOCATE 7,1:PRAINT CHRA$( 158) ;5T 

RING$( 28, 154) ;CHR$( 156) : LOCATE 7,2: 

PRINT CHR$( 149) ;SPACE$( 28) ; CHR$( 149 
):LOCATE 7,3:PRINT CHR$( 147) ; STRING 

$( 28, 154) ;CHRA$( 153) 

11498 LOCATE 42,9:PRINT"Funktionswa 

hl:"CHA$( 18) ; TAB( 48) ; CHR$( 248) ; TAB( 
45) ;CHR$( 242) ; "COPY" ;CHRA${ 243) ; TAB( 

48) ;CHA$( 241) :LOCATE 42, 16:PRINT"Zi 
fferneingabe: "CHR$( 18) ; TAB( 42) "Tast 

atur"” 

11588 a$=-"7894561238. 
FOR i=1 TO LEN(a$) 
11518 LOCATE px,py:PRINT MID$(a$,i, 
1) :px=px+18:IF px>38 THEN px=6:py”=p 
+2 

11520 NEXT:MOVE 38,28:DRAWR 238,08:D 
RAWR 8, 138:DRAWA -238,8:DRAWR B,-13 
8:MOVER 8,34:DRAWR 2380,8:MOVER 8,34 
:DRAWR -2398,8:MOVER 8,34:DRAWR 238, 
[4] 

11538 MOVE 96,28:DRAWR B, 138:MOVER 
808,8:DRAWAR ®,-1308:MOVE 284, 16:DRAW 
284,380 

11548 FOR I=1 TO 24:PRINT BEF$(I):N 
EXT:WINDOW#7,9,28,3,3:CLS#? 

11558 GOSUB 115698:60T0 11630 

11568 "’Initial.Rechner 

11578 CLS#6:x1=-98:x2=-0:x3=9:x4=B:bef 
%=-5:nx=8:sx=Q:qx=8 

11588 u$=-"HHHHHHHHHHH HHHHHHH” : GOSU 
B 11618 

11598 IF degfla% THEN a$="DEG"” ELSE 
a$="RAD"” 

11688 LOCATE 38,2:PRINT CHRA$( 24) ;a$ 
;CHRA$( 24) :a$="":G0TO 12978 

11618 ° INVERS 

11628 PRINT CHRA$( 24) ;bef$( bef%) ;CHR 
$( 24) :RETURN 

11638 ’Rechner-Eingabeschleife 
11648 IF runmo% THEN w$=MID$( formel 

$Cwahl1%) ‚zza%, 1) :GOTO 11668 

11658 GOSUB 14158 

11668 IF runmo% THEN IF w$="X" THEN 
zza%=19:605UB 14218:PRINT#3,USING 

u$;x1:PRINT#3, :PRINT#3,MID$( Formel$ 

(wahl%) , 1,18) ,"[X=Abbruch] ":G0TO 11 


":px=6:py=16: 
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== LISTING | 


649 


11678 LOCATE 2,1:IF dru% THEN PRINT 
CHR$( 24)” *P"CHR$( 24) ELSE PRINT " 


11688 IF runmo% THEN IF w$="W" THEN 
zza%=zza%+1:PRINT#3,MID$L Formel$( w 

ahl%) ,zza%,1);"-";:LINE INPUT#A3,a$: 

GOSUB 14229:G05UB 12918 

11698 IF runmo% THEN IF w$>CHR$( 127 


} THEN PRINT bafslberf) :bafsAscl ws 
-127:G05UB 11618:w$=CHR$( 224) 


11788 IF runmo% THEN zza%=zza%+1 
11718 IF w$=CHR$C 13) THEN PRINT bef 

$CBEF%) :bef%=5:G0SUB 11618: w$=CHR$( 

224) 

11728 IF prmo% THEN IF wfla%=8 THEN 
IF w$="W" THEN wfla%=-1:PRINT#7,"”A 
-Z 7?" :w2$="":WHILE W2$<CHR$( 65) OR 

Ww2$>CHRA$( 98) :W2$=UPPER$( INKEY$) :WEN 

D:w$=w$+w2$:MID$( Formel$( wahl%) ‚zza 

%,2)=w$:zza%=MIN( 255, zza%+2) :PRINT# 

7,TABE1) ;w2$; "="; :PRINT#6,"[";w2$;" 
I"; 

11738 IF prmo% THEN IF wfla%=-1 THE 
N IF LEN(w$)=2 THEN PRINT#7,"Testwe 

DENE 

11748 IF prmo% THEN IF NOT wfla% TH 

EN IF INSTA( "12345678998." ,w$) THEN 

MID$( formel$(l wahl%) ‚,zza%, 1)=w$:zza% 

=MIN( 255, zz2a%+1) :PRINT#6,w$; 

11758 IF prmo% THEN IF wfla%=B8 THEN 
IF w$=CHR$( 13) OR w$=CHR$( 224) THE 

N MID$C Formel$( wahl%) ,zza%, 1) =CHR$( 
127+bef%) :zza%=MIN( 255, zza%+1) :PRIN 

T#6,MID$(bef$(bef%) ,‚4); 

11768 IF prmo% THEN IF w$="X" THEN 

MID$C formel$( wahl%) ‚zza%, 1)="X":prm 

0%=98:G05UB 12978:IF INSTR( formel$( w 

ahl%) ,"W”)<19 THEN MID$( Formel$( wah 
1%) , 19,237) =SPACE$( 237) :CLS#6 :: PRINT 

#6,CHRA$( 7) ;"Eingabe ??"TAB( 1) "Wiede 

rholen!" :prmo%=-1:zza%=19 

11778 K%=INSTA( CHRA$( 242) +CHR$( 243) + 

CHR$( 248) +CHRA$( 241) +CHA$L 224) +". 123 

4567898” ,w$) :IF k%=@8 THEN 11648 
11788 SOUND 1,28,1,13:0N k% GOSUB 1 
1810, 11820, 11830, 11840, 11898, 13010, 
130830, 13838, 13838, 13830, 13838, 13838 
‚13830, 13030, 13030, 1303® 

11798 IF k%=5 THEN IF bef%=8 THEN O 

N BREAK GOSUB- 14288: RETURN 

11888 GOTO 11648 

11818 dif%=1:G0T0 11858 

11828 dif%=-1:G0TO 11858 

11838 dif%=4:G0T0 11858 

11848 dif%=-4 

11858@ IF bef%+dif%<1 OR bef%+dif>24 
THEN RETURN 

11868 SOUND 2,26, 1, 13:PRINT bef$(be 

f%) :bef%=bef%+dif%:IF bef%>24 THEN 


bef%=24 

11878 GOSUB 11628:RETURN 

11888 : 

11898 ’ #### KLICK ### 

11988 : 

11918 ON bef% GOSUB 11938, 11988, 121 


68, 12198, 12308, 12338, 12368, 12398, 12 

418, 12448, 12478, 12508, 12530, 12568, 1 

2598, 12628, 12658, 12688, 12718, 12740, 
12770, 12888, 12830, 12868 

11928 LOCATE #7,1,1:PRINT#7,DEC$(x 
1,u$) ; :AETUAN 

11938 *° DRUCKER 

11948 IF dru% THEN PRINT#8:PRINT#8: 

PRINT#8:PRINT#8 

11958 LOCATE 2,1:dru%=NOT dru%:IF d 

ru% THEN PRINT CHR$( 7) ;CHA$( 24) CHR$ 

( 168) "P"CHR$(24) ELSE PRINT” 
11968 RETURN 

11970 : 

11988 ’° ##%## STATISTIK #### 

11998 x11=x1 

12888 GOSUB 12918:nx=nx+1:CL5#7:PRI 

NT#7,nx"”":"; 

12818 INPUT #7,"",a$:IF a$="" THEN 
nx=nx-1:G0T0 129868 

12828 IF UPPER$CLEFT$La$,1))="L” TH 

EN INPUT#7,"Loe:Wert ",xsi:sx=sx-xs 
I:nx=nx-1I:qx=qx-(xs1#xs1):IF nx<=B 
THEN sx=98:qx=®8:nx=® 

12838 IF UPPER$(LEFT$CAa$,1))="L" TH 

EN 12138 

12848 xs=VAL(a$) :sx=sx+txs:qx=gx+txs* 
xS 

12858 GOSUB 12919:w1$="X( "+MID$LSTRA 

$(nx) ,2)+")":GOSUB 13628:G0T0 11988 
12068 : 

120878 x1=nx:w1$="n ":PRINT#7,w1$;x1 
:CALL &BB86:G0SUB 13628 

12088 x1=sx:w1$="Sum ":PRINT#7,w1$; 
x1:CALL 6B886:G05SUB 13628 

12898 x1=qx:w1$="Q ":PRINT#A7,w1$;x1 
:CALL &BB86:G05UB 13628 

12188 IF nx<2 THEN 12138 

12118 x1=sx/nx:w1$="MW ":PRINT#7,w1 

$;x1:CALL &BB86:605UB 13628 

12128 x1=5QAl (qx-sx#[ sx/nx)) /Lnx-1) 

):w1$="S5x ":PRINT#7,USING w1$+"AHdH 

HHHHH  HAHHH" 1: CALL 68B06:G605UB 13 

628 

1213@ PRINT bef$( BEF%) :bef%=5:GOSUB 
11610:w$=CHR$( 224) :a$="":x1=x11:RE 

TURN 

12148 : 

12158 RETURN 

12168 ° ## PI ## 

12178 GOSUB 12918:3$=STA$L[ PI) :GOSUB 
12919:w1$="":605UB 13628:G0T0 1297 

8 

12180 ’ 


TTL————————————————————————————————— 


LISTING 


12198 
12208 
12218 IF prmo% THEN RETURN ELSE CLS 
#6:IF wahl%=® THEN PRINT#6,CHR$( 7); 
"Formelnummer ";"ueber ", "Hauptmenu 
e 'F’";"anwaehlen !I":CALL &6BB86:CL 
546 ::RETURN 

12220 a$-"":wfla%=-® 

12238 PRINT#6,MID$( formel$( wahl%) , 1 


‚ 18) ; CHR$( 18) ; TAB( 1) "A=Run"TAB( 1) "P 
=Programmieren 


12248 GOSUB 14158 

12258 ON INSTAL"PR"”,w$) GOTO 12278, 
12288 

12268 GOTO 12248 

12278 IF MID$( formel$( wahl%) , 19,237 
) <>SPACE$( 237) THEN CLS#6:PRINT#6,C 
HA$L7)"Formel existiert”,"bitte ueb 
er”,"Hauptmenue :’F’", "modifizieren 
":CALL 6B8B96:CL5#6:RETURN ELSE prm 
0%=-1:zza%=19:CL546:PRINT#6,"PRG :"” 
; : RETURN 

12288 IF INSTA(MID$( Formel$(wahl%), 
19,237),"X”)=8 OR INSTRA( MID$( Formel 
$(wah1%) ,19,237),"W")=® THEN PRINT# 
6,"Formel”,"nicht”, "korrekt !":CALL 
6BB86:CLS#6:RETURN ELSE runmo%=-1: 
zza%=19:RETURN 

12298 RETURN 

123088 ° ## ENTER ##* 

12318 GOSUB 12919 

12328 w1$="#":G0OSUB 13628:wfla%=9:6 
0OTD 12978 

12338 ° ## CE ## 

12348 a$="":G0OSUB 12918 

12358 RETURN 

12368 ’ ## C #* 

12378 GOSUB 11568:PRINT bef$( 7) 
12388 RETURN 

12398 *° ## EXIT ## 

12488 RETURN 

12410 7 = + wur 

12428 GOSUB 12918:x1=x2+x1:G05UB 12 
958 
12430 
12448 
124508 
958 
12468 w1$="#":60T0 13628 

124708 7 ## +/- ## 

12488 x1=-x1:w1$="+/-":GOSUB 13628 
12498 GOTO 12978 

12500 ° ## 1/xX ## 

12518 GOSUB 12918:IF x1=® THEN PRIN 

T47,CHR$C7) ; :RETURN ELSE x1=1/x1 
12528 w1$="1/X”:G0OSUB 13628:60T0 12 

978 

12530 * #4 — ## 

12548 GOSUB 12918:x1=x2-x1:G05SUB 12 

958 


"PRG" 


w1$="+":G0T0O 13628 
ME = Zn „EI. Zu 2 


GOSEUB 12918: x1-x1#x2:G06UB 12 


12558 w1$="-"”:60T0 13628 

125608 ’ ## / #% 

12578 GOSUB 12918:IF x1=8 THEN PRIN 
T CHR$( 7) :RETURN ELSE x1=x2/x1:G0SU 

B 12958 

12588 w1$="/":60T0 13628 

12598 ° ## Zehnerlogarithmus *## 
126898 GOSUB 12918:IF x1<=® THEN PRI 

NT#7,CHR$( 7) ; :RETURN ELSE x1=L06G10( 
x1) 

12618 w1$="LOG":GOSUB 13628:G0T0 12 
978 

12628 ? ## Y’X #% 

12638 GOSUB 129198:IF X1>99 OR («1x1 
AND x2<8) THEN PRINT CHRA$L7) :RETUR 
N ELSE x1=x2 ° x1:605UB 12958 

12648 wi$="Y ”° X":GOTO 13628 

12658 ° #%# Prozent *## 

12668 GOSUB 12919:IF x2=8 THEN PRIN 
T CHR$(7) ; :RAETUAN ELSE x1-100#x1/x2 
12678 w1$="%":GOSUB 13628:60T0 1297 
[.) 

12688 ’ ## TAN ## 

12698 GOSUB 129198:x1=TAN(x1) 

12788 w1$="TAN":GOSUB 13628:G60T0 12 
978 

12718 ° #*# Wurzel *#* 

12728 GOSUB 12919:IF x1<@ THEN PRIN 
T#7,CHRA$( 7) ; :RETURN ELSE x1=S5QA(x1) 
12738 wi1$="SQR"”:GOSUB 13629:G0T0 12 
978 


12748 ’ ## x-quadrat ##* 

12758 GOSUB 12918:x1=x1%#x1 

12768 wi$="x "2":6G056UB 13628:60T0 1 
2978 

12778 ° ## COS #% 

12788 GOSUB 12918:x1=-C065( x1) 

12798 w1$=-"C05”":G0SUB 13628:G60T0 12 
978 

128088 ° ##= S5IN ## 

12818 GOSUB 12918:x1=5IN( x1) 

12828 w1$="SIN":GOSUB 136298:G0T0 12 
978 

12838 ° #*# X und Y vertauschen ## ( 
x1<->x2) 


12848 GOSUB 129198:x11=x1:x1=-x2:x2=x 
11 

12858 GOTO 12978 

12868 ° ** RAD / DEG *#* 

12878 LOCATE 38,2:PRINT CHR$( 24) ;MI 
D$CBEF$CBEF%) ,4,3) ;CHRA$( 24) :degfla% 
=NOT degfla%:IF degfla% THEN DEG:MI 
D$Cbef$lbef%) ,4,3)="RAD” ELSE RAD:M 
ID$lbef$l bef%) ,‚4,3)="DEG"” 

12888 GOSUB 11618 

12898 RETURN 

12988 RETURN 

12918 ° Stack erhoehen, falls a$<>"" 
12928 IF runmo% THEN IF UPPER$(LEFT 
$(a$,1))="X" THEN runmo%=8:3$="":IF 
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dru% THEN PRINT#8:PRINT#B:dru%=® 
12930 IF a$<>"" THEN x4=x3:x3=x2:x2 
=x1:x1=VAL(a$) :3$="":LOCATE 1,1:PRI 
NT" ":wfla%=8 
12948 GOTO 12978 
12958 *° Stack erniedrigen 
12968 x2=-x3:x3=-x4:x4-B9:a$="" 
12978 PRINT#7,DEC$((VAL(a$) ,u$) ;:IF 
prmo%=® THEN LOCATE #6,1,1:PRINT # 
6 „USING u$g+" BERTLEERZNTES USING u 
+®" Z";x3:PAINT#5B,USING u$+* Y";x2: 
ARINT #6,USING u$+"” X"”;x1 
12988 RETURN 
12998 
13008 : 
13818 IF INSTAR(La$,".") THEN SOUND 1 
‚50,5, 15:RETURN 
13928 
13839 
eckt 
13848 : 
13858 IF w$="."” THEN IF a$="" THEN 
w$="8." 
13868 a$=-a$+w$:IF LEN(a$)>19 THEN a 
$=LEFT$(a$, 19) 
130878 LOCATE #7,1,1:PRINT#7,DEC$LLV 
AL(a$) ,u$) ;:LOCATE #7, INSTRALDEC$HCLV 
AL(a$) ,u$) ‚,A$) , 1:PRINT#7,CHR$( 24) ;A 
$; CHR$( 24) ; :RETURN 
13088 : 
13898 t8=( year-1585) #365+INT( (year- 
1585) /4) -INT((year-1588) /188) +INT(( 
year-1288) /488) +month1%( month-1) +da 
y+(month<=2 AND year MOD 4=B)-( mont 
h<=2 AND year MOD 188=8) +(month<=2 
AND year MOD 4808=8) 
13188 t2=year#366+month*31+day 
13118 date$=RIGHT$L” "+STRA$lday),2 
)+"."+RIGHT$L"” "+STRA$lmonth) ‚,2)+". 
"+RIGHT$(” "+STR$( year) ,4) 
13128 wot%=1+t98-7#INT( tB/7) :wot$=wo 
t$(wot%) :RETURN 
13138 p=POSt( #8) +6: v=VPOS( #8) 
13148 SOUND 1,28,1,15 
13158 LOCATE p-6,v:PRINT "Datum ";d 
ate$:v$="99/99/9999"” :a$=date$:GOSUB 
13249: date$=a$ 
13168 day=VAL(MID$( date$, 1,2)) :mont 
h=VAL(MID$( date$,4,2)) :year=VAL( MID 
$ldate$,7,4)) 
13178 IF month<1 OR month>12 THEN 1 
3148 
13188 IF year>2188 OR year<1585 THE 
N 13148 
13198 IF day<1 OR day>(mo%( month) -( 
month=2 AND (year MOD 4)=8)) THEN 1 
3148 
13288 GOSUB 13898:LOCATE p-6,v:PRIN 
T wot$;date$ 
13218 RETURN 


Zifferntaste oder "”."” gedru 


13228 DATA 31,28,31,30,31,38,31,31, 

30,31,38,31 

1323@ DATA Montag,Dienstag,Mittwoch 
‚Donnerstag,Freitag, Samstag, Sonntag 
13248 : 

13258 ”° INKEY-Abfrage im Format v$: 
a$=> als String zurueck 

13268 : 

13278 le=LEN(v$) :11=1:IF LEN(a$)<>1 
e THEN a$=SPACE$( le) 

13288 WHILE INSTRL"!9 ",MID$Cv$,11, 
1))=8:11=11+1:WEND:LOCATE p-1I+1l1,v: 
FARINT CHR$( 24) ;MID$(a$,11,1) ;CHA$(2 
4) 

13298 119=MIN(11,1e) :11=MAX( 1,11) 
13388 w$=INKEY$:IF w$="" THEN 13398 
ELSE 12=11 

1331@ IF INSTR("”,"+CHA$( 34) ,w$) THE 
N 13388 

13328 LOGATE p-1+11,v:PRINT MID$(o$ 
aD) 

13338 IF w$=CHR$( 13) THEN RETURN 
13348 WHILE INSTR("!9 ",MID$(v$,11, 
1))=8:11=11+1:WEND:IF 11>1le THEN 11 
=le 

13358 11=MIN(11,1e) :11=MAX( 1,11) 
13368 IF MID$(v$,11,1)="9" THEN IF 
INSTA("” 12345678998” ,w$) THEN MID$(a 
$,11,1)=w$:SOUND 1,38, 1,15:11=11+1: 
IF 11>le THEN RETURN 

13378 IF MID$(v$,11,1)-" ” THEN IF 
ASC(w$) >31 AND ASC(w$) <127 THEN MID 
$la$,11,1)=w$:SOUND 1,38,1,15:11=11 
+1:IF 11>le THEN RETURN 

13388 IF MID$Cv$,11,1)-"1" THEN IF 
ASC(w$) >31 AND ASC(w$)<127 THEN MID 
$Ca$,11,1)=UPPER$(w$) :SOUND 1,38,1, 
15:19=11+1:IF 11>le THEN RETURN 
13398 IF w$=CHR$( 242) THEN SOUND 1, 
34,1,15:11=MAX( 11,2) -1:WHILE INSTRA( 
"19 ",MID$(v$,11,1))=98:11=11-1:WEND 
:IF 119<1 THEN RETURN 

13488 IF w$=CHR$( 243) THEN SOUND 1, 
26,1,15:11=MIN(11,1le-1)+1:WHILE INS 
TAC"!9 ",MID$CvV$,11,1))=9:11=11+1:W 
END:IF 11>le THEN RETURN 

13418 LOCATE p+12-1,v:PRINT MID$(a$ 
‚12,1):G0OTO 13288 

13428 MODE 2:INK 8,1:BORDER 1:INK 1 
‚24 

13438 ORIGIN 475,8,475,490,382,8:CL 
6 1:0RIGIN 8,8,9,450,488,8:CLG 8 
13448 BORDER 1:WINDOW 2,58,2,25:WIN 
DOW #41,61,88,2,3 

13458 WINDOW#6,38,59,2,7:WINDOW #2, 

62,808,6,7:WINDOW #3,61,88, 180,25 
13468 PEN 1:PAPER B8:FOR i=1 TO 3:PE 

N#i1,8:PAPER #i,1:CL5#i:NEXT 

13478 WINDOW#1,65,88,2,3:WINDOW#5S, 6 

4,808,9,9:WINDOW#4,62,88,4,5:RETURN 
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134808 : 

13498 CLS#2:PRINT#2,USING "#4## Term 
ine"”;termin%:PRINT#2,USING "##4# For 
meln”; formel%: RETURN 

13508 
13519 
13528 
13538 PRINT:PRINT”"Bitte Warten.. 
_ s$=MID$( HEUTE$, 7,4) +MID$( HEUT 


2) +WID$CHEUTES, 1 2) 
GSss b FOR i=1 TO termin%:IF S$>MID$ 


CISERInBE) TEE 
2)+MID$(termin$(i),1,2) THEN IF MID 
$ltermin$(i),11,1)="#" THEN MID$( te 
rmin$(i),11,1)="*#" 

13568 NEXT 

13578 OPENOUT "termin.dat":PRINT#9, 
-1:PRINT#9,heute$:PRINT#9,termin%, f 
ormel% 

13588 FOR i=1 TO termin% 

13598 WAITE #9,termin$( i) :NEXT 
13688 FOR i=1 TO formel%:WRITE #9,f 
ormel$( i) :NEXT 

13618 CLOSEOUT:END 

13628 ° drucken 

13638 IF dru%=® OR runmo% THEN RETU 
RN 

13648 PRINT#8,TAB(5) ;w1$; TAB( 15) ;US 
ING u$;x1; :RETURN 

13658 RESUME 11638 i 

13668 PEN 1:PAPER 8:INK 8,1:INK 1,2 
6:END 

13678 RETURN = 

13688 ” 
13698 ’ 
13788 
13718 CLS:CLS#3:FOR i=1 TO formel% 
13728 PRINT USING "Formel Nummer ##A 
. = E";i;LEFT$CFormel$(i), 18) :NEXT 
13738 PRINT#3,CHR$( 10); ## Forme 
1 ##" 

13748 PRINT#3,CHR$( 18) ; "H=Hinzufueg 
en”,"N=Neu bearbeiten”, "R=Rechner”, 
"A=Anzeigen”, "X=Zurueck” 

13758 GOSUB 14158 

13768 ON INSTR( "XHANR”,w$) GOTO 137 
80, 13898, 13878, 14000, 14858 

13778 GOTO 13758 

13788 RETURN 

13798 

13888 ° Formel hinzufuegen 

13818 

13828 formel%=MIN( 28, formel%+1) :wah 
1%=formel%: formel$( wahl%) =SPACE$( 25 
5) 

13838 v$=SPACE$( 18) :p=21:v=wahl%:a$ 
=MID$( Formel$( wahl%) ‚1, 18) 

13848 CLS:LOCATE 1,3:PRINT USING 
ormel Nummer ##. = E&”";wahl%;a$ 
13858 LOCATE p,v:PRINT MID$( Formel$ 


ENDE 


Formel 


"F 


(wahl%), 1,18) :G0OSUB 13259:MID$( Form 
el$(wahl%), 1,18) =a$ 

13868 PRINT STRING$( 3, 18)"zur Progr 
ammierung ueber Taschenrechner" :PRI 
NT"Feld ’PRG’ anklicken und ’P’ (Pr 
ogrammieren) druecken"”:CALL &BBB6:C 
LS#3:G0TO 11438 

13865 : 

13878 ° Formel anzeigen 

13888 

13898 PRINT#3:PRINT#3," Anzeigen >" 
:INPUT#3,"Formelnummer ",‚wahl% 
13988 IF wahl%<1 OR wahl%>formel% T 
HEN 13898 

13918 CLS:PRINT LEFT$C Formel$( wahl% 
),18); 

13928 FOR i=19 TO 255 

13938 z$=MID$( formel$( wahl%) ‚1, 1) 
13948 IF z$="X" THEN 13998 

13958 IF z$-=-"W" THEN PRINT TAB( 20); 
"Variable : ";MID$Cformel$( wahl%) ‚i 
+1,1); TAB( 28) ; :i=i+1:60T0 13988 
13968 IF ASC(z$)>127 THEN PRINT TAB 
(28) ;CHA$( 24) ;MID$Lbef$(l ASC[ z$) - 127 
),4) ;CHR$( 24) ; TAB( 28) ; :z$="" 

13978 PRINT z$; 

13988 NEXT 

13998 CALL &BB86:60T0 13688 

14888 INPUT#3,”"Formelnummer "”,‚wahl% 
:IF wahl%<1 OR wahl%>formel% THEN 1 
4888 

14818 PRINT#3,"Sicher J/N” 

14828 GOSUB 14178 

14838 MID$( Formel$( wah1%) , 19,237) =56 
PACE$( 237) :G0OTO 13838 

14848 : 

14858 ° Formel selektieren 

14068 : 

14878 INPUT#3,"Formel :",wahl%:IF w 
ahl%<1 OR wahl%>formel% THEN 13718 
14888 runmo%=-1:zza%=19:CL5:CL5#3:L 
OCATE #3, 1,5:PAINT#3,MID$( Formel$( w 
ahl%),1,18) 

14898 dru%=8:PRINT#3,CHR$( 18) "Druck 
er J/N ";:GOSUB 14178:PRINT#3,w$:IF 
w$<>"J" THEN 14148 

14188 dru%=-1:PRINT#8, eng$: PRINT#B: 
PRINT#8,”"Formel ";LEFT$( formel$( wah 
1%) , 18) :PRINT#8 

14118 3j%=19 

14128 jJk%=INSTR( MID$C Formel$( wahl%) 
‚3%),"”W”):IF j3k% THEN PRINT#8,SPACE 
$( 8) ;MID$C Formel$( wahl%) , 3j%+jk%, 1); 
SPACE$( 7) ; : 3%=MIN( 255, j%+jk%) :GOTO 
14128 

14138 PRINT#8,SPACE$( 9) ;"Ergebnis"”: 

PRINT#8 

14148 GOTO 11468 

14158 w$=UPPER$( INKEY$) :IF w$="" TH 

EN 14158 
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14168 RETURN 

14178 GOSUB 14158:IF INSTR("JN”,w$) 

=®8 THEN 14178 ELSE RETURN 

14188 PRINT bef$(bef%) :bef%-8:GOSUB 
116198: w$=CHRA$( 224) :runmo%=-8:IF prm 

0% THEN MID$( Formel$(wahl%) ‚zza%, 1) 

Ei) Ah 

14198 k%=5:RETURAN 

14288 CALL &BB83:RETURN 

14218 IF dru%=-8 THEN RETURN ELSE PR 

INT#8,USING " :"+MID$Lu$,3, 14) ;x1 
:RETURN 

14228 IF dru%=8 THEN RETURN 

14238 IF LEFT$(UPPER$( a$+” "),1)="X 
" THEN RETURN ELSE PRINT#8,USING MI 
D$CU$,3,14)+" ";VAL(a$) ; :RETURN 


TERMIN 
TASCHEN- 
RECHNER 
KALENDER 


Fortsetzung von Seite 24 


Im Programmiermodus ist der Taschenrechner wie 
gewohnt zu bedienen: Funktionsaufruf durch Cursor- 
Copy-Steuerung, Zahlenfixwerte über Tastatur. Die 
Variablendefinition (die später im “RUN“-Modus 
einzugebenden Werte) ist durch Drücken von W 
(Werteingabe) einzuleiten. Die Variable muß nun 
noch mit einem Buchstabensymbol (A—Z) benannt 
und anschließend ein “Testwert‘“ eingegeben 
werden (der nicht in die Berechnungsformel mit, 
eingeht!). Zum Abschluß der Programmierung die 
X-Taste drücken. Anmerkung: Folgende Funktionen 
sollten nicht in eine Formel mit eingehen: 
DEG / RAD STAT /PAG / P/ EXIT 
Aufruf einer Formel: 
Entweder direkt nach der ‚Programmierung‘ durch 
Anklicken des PRG-Feldes (und “R“) oder über das 
Formelmenü RR. 
Wird der Drucker eingeschaltet, so geschieht das 
Druckprotokoll tabellenartig (Spalten mit Eingabe- 
variablen und als letzte Spalte das Ergebnis). Die 
Eingaben und (Bildschirm-)Ausgaben geschehen im 
“RUN“-Modus über das rechte Bildschirmfenster. Der 
RUN-Modus wird so lange fortgesetzt, bis kein Varia- 
blenwert, sondern ““X“ eingegeben wird. 
Das Formelmenü: 

: Hinzufügen einer neuen Formel (max. 20) 
Anzeigen einer Formel 
Rechner (RUN-Modus) 
Verändern einer bestehenden Formel (Formel 
wird überschrieben!) 
Abbruch 


„= ZI»: 


(Thomas Scheer) 


TIPS & TRICKS _ 


THE SOUND 
OF MUSIC 


Als (vorläufigen) Höhepunkt unserer Musikreihe 
präsentieren wir heute ein vollständiges Sequenzer- 
Programm. Das Verständnis der einzelnen Befehle 
dürfte nach allem was Sie bereits gelesen haben, 
keinerlei Schwierigkeiten bereiten. 


MUSIZIEREN IN STEREO 


Sequenzer Star ist ein professionelles Musikprogramm, 
das alle Musikerherzen höher schlagen läßt. Da der 
CPC einen Stereo-Ausgang besitzt, ist es sogar möglich, 
mittels eines Kabels den Computer an die eigene 
Stereoanlage oder an einen Mixer anzuschließen. 

So basiert dann auch das ganze Programm auf der 
Stereofunktion, so daß wirklich gute Effekte erzielt 
werden können. Weiterhin ermöglicht SEQUENZER 
STAR durch den Stereo-Effekt, daß man nicht wie bei 
den meisten schon vorhandenen Synthesizer-Program- 
men immer nur auf einer Oktave herumklimpern 

muß, bzw. während des Spielens erhebliche Schwierig- 
keiten hat, auf eine andere Oktave umzuschalten, son- 
dern man kann gleichzeitig drei der sechs Oktaven 
spielen. Eine Oktave besteht aus 12 Tönen (sieben 
Ganz- und fünf Halbtonschritte). 

Hat man nun das Programm geladen, erscheint als er- 
stes ein Menü, auf dessen einzelne Funktionspunkte 
ich jetzt genauer eingehen werde. 


Funktionspunkt 1: Programmieren 


Insgesamt ist es möglich, bis zu 1000 (!!) Töne vorzu- 
programmieren. Das Programm fragt Sie dabei jeden 
einzelnen Ton ab. 

er Fuge muß hierbei wie folgt erfolgen: 


= G G 
cSs =cC GIS =CG‘ 
CEE =H GES =F 
D =D A =A 
DIS =D‘ AIS =A‘ 
DES“ = C! AS = G‘ 
E =E B = A 
EIS: = E* 

ES = D‘ 

F =F 

FI S. = PR 

FES =E R 
WICHTIG: 


Bei dieser Eingabemöglichkeit sind unbedingt Noten- 
kenntnisse er erderlich! 

Für Musikfreunde, die über keine Notenkenntnisse ver- 
fügen, gibt es aber auch einen Programmpunkt, so daß 
das Programm für jeden Musikfreund etwas bietet. 
Eine weitere wichtige Funktion, die beim Programm- 
punkt PROGRAMMIEREN ermöglicht wird, ist das 
Ergänzen von eingegebenen oder selbstkomponierten 
Musikstücken. Dazu wählt man erst den Programmteil 
EDITIEREN. Dort schaut man sich an, wie viel Töne 
schon eingegeben wurden und wählt dann PROGRAM- 
MIEREN. Falls man noch: weiß, wieviel Töne schon 
eingegeben wurden, kann man natürlich gleich die als 
letztere genannte Funktion wählen. Nun wird auch, 


Bitte lesen Sie weiter auf Seite 37 
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ID 'SSHHTHERicHechecetecigtucuueneiene 5AR PRINT" Bitte waehlen Sie ! 
2eB8 '’* SEQUENZER = x 

san VON * 558 a$=-INKEY$:IF a$ <> "P" AND a$ < 
48 '’* SACHA BASLER * >"n" AND a$ <>"Z" AND a$ <> "z" AND 
sa ’* FUER * o$ <> "L" AND a$ <>"1" AND o$ <>"A 
6a ’* SCHNEIDER AKTIV * " AND a$ <>"a” AND a$ <>"M" AND a$ 

70 78 CPC 464/664/6128 je* <>"m" AND a$ <>"T" AND a$ <>"t" AND 
BO "HFHHSEHEcHEcHucHhauuchuereininehine a$ <>"E" AND a$ <>"e" AND a$ <>"I" 
120 AND a$ <> "i" THEN GOTO 558 

138 ON ERROR GOTO 288 568 IF a$=-"P" OA a$=-"p" THEN GOTO 2 
148 DIM ton( 19888) 288 

158 MODE 1 : 578 IF a$="Z" OR a$="z" THEN GOTO 8 
16R CLS 38 

178 PEN 1:n=1 588 IF a$="L" OR a$="1" THEN GOTO 2 
188 en =4 538 

198 ” 598 IF a$="A" OR a$="a" THEN GOTO 2 
288 ’Notenwertfestlegung 738 

218 688 IF a$="M" OR a$="m”" THEN GOTO 1 
229 c=-69:d-53:e=-47:f=-45:g=-40:3=-36:h 888 

=32 618 IF a$="T" OR a$=-"t" THEN GOTO 6 
238 c2=119:d2=-186:e2=95:f2=89:g2=-88 48 

:a2=71:h2=63:bn=38 628 IF a$="E"” OR a$=-"e" THEN GOTO 2 
248 n=B 918 

25a 638 IF a$="I" OR a$=-"i" THEN GOTO 3 
268 ’MENUE 198 

2798 648 ’ 

288 WINDOW49,1,48,1,25:PEN#®8,1:PAPE 658 ° TONMODULATION 

R#8,9:C1L5#0 668 ” 


298 MODE 1:ed=-®: r=-®8:bn=-30:fak1=-4:f 678 CLS:PRINT:PRINT:PEN 1:LOCATE 8, 
ak2=4: fak4=4:kan=-?7?: PRINT:PRINT:PE 2:PRINT’TSEQUENZER SF. AU 


N 1:L0OCATE 8,2:PRINTSEQUENZ ":PRINT: PEN 3 
ER 5 T A R":PRINT:PEN 3 688 LOCATE 12,4:PRINT CHR$( 164) "19 
388 LOCATE 12,4:PRINT CHR$( 164) "19 87 BY S. Basler" 
86 BY 5. Basler" 698 PEN 3:LOCATE 14,6:PRINT"” TONMOD 
318 PEN 3:LOCATE 14,6:PRINT"” Me ULATION ":PRINT:PEN 1 
nue ":PRINT:PEN 1 788 ORIGIN 88,399 
328 ORIGIN 88,399 718 DRAW 495,8,1 
338 DRAW 495,8,1 728 DRAW 418,-118 
348 DRAW 418,-118 738 DRAW 88,-118 
358 DRAW 88,-118 748 DRAW 8,8 
368 DRAW 8,8 758 LOCATE 3,12:PEN 3:INPUT "Modula 
378 PRINT tion links";Mi 
388 PRINT" - <P>rogrammieren"” 768 LOCATE 3,14:INPUT "Modulation m 
398 PRINT itte";M2 
488 PRINT" - <Z>ufallsgenerato 778 LOCATE 3,16:INPUT "Modulation r 
r" echts";MA4:PEN 1 
418 PRINT 789 GOTO 258 
428 PRINT” - <L>aden" 7980 
438 PRINT Bn8 
448 PRINT” - <A>bspeichern"” 818 ° ZUFALLSGENERATOR 
458 PRINT 2 B20 ’ 
468 PRINT" - <M>usizieren"” 838 GOSUB 34389 
478 PRINT 848 LOCATE#1,4,8:PRINT#1," ZUFA 
488 PRINT" - <T>onmodulation"” L:2E 782 BIEIN ER TAFTIG RL" 
498 PRINT 858 WINDOW#B, 1,498,18,25 
588 PRINT” - <E>ditieren der M 868 PRINT 
elody"” 878 PRINT 
518 PRINT 888 PRINT: INPUT;"” Geben Sie bitte d 
528 PRINT” - <I>nstrument” ie Anzahl der Toene ein, die der 
538 PRINT Sequenzer fuer Sie errechn > 
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en soll:",rt 
898 RANDOMIZE TIME: ton=INT( AND*#( 119 
-38+1) +3®) 
908 ’ 
910 
928 
938 IF ton=c OR ton=d OR ton=-e OR 
ton=f OR ton=g OR ton=a OR ton=h OR 
ton=c2 OR ton=d2 OR ton=-e2 OR ton= 
f2 OR ton=g2 OR ton=h2 OR ton=a2 TH 
EN GOTO 948 ELSE GOTO 898 


ENTSCHEIDUNGSMATRIX 


948 IF ton=ton({n) GOTO 898 
958 IF ton({n)=c AND ton=d THEN G 
0TO 898 
968 IF ton(n)=c AND ton=h THEN G 
0TO 898 
978 IF ton(n)-d AND ton-c THEN 6 
0TO 898 
988 IF ton(n)=d AND ton-e THEN 6 
OTO 898 
998 IF ton{n)=e AND ton=d THEN G 
0OTO 898 
1888 IF ton{n)=-f AND ton-g THEN 
GOTO 898 
1818 IF ton{n)-g AND ton-f THEN 
GOTO 898 
1828 IF ton({n)=g AND ton=a THEN 
GOTO 898 
1838 IF ton({n)=-a AND ton=g THEN 
GOTO 898 

1848 IF ton{n)=a AND ton=h THEN 
GOTO 898 
1858 IF ton({n)=h AND ton=a THEN 
GOTO 898 
1868 IF ton(n)=c2 AND ton=d THEN 
GOTO 898 
1878 IF ton{n)=d2 AND ton=c2 THEN 
GOTO 898 
1888 IF ton({n)=d2 AND ton=-e2 THEN 
GOTO 898 
1898 IF ton{n)=e2 AND ton=d2 THEN 
GOTO 898 
1188 IF ton{n)=f2 AND ton=g2 THEN 
GOTO 898 
1118 IF ton{n)=g2 AND ton=f2 THEN 
GOTO 898 
1128 IF ton{n)=g2 AND ton=a2 THEN 
GOTO 898 
1138 IF ton{n)=a2 AND ton=h2 THEN 
GOTO 899 
1148 IF ton{n)=a2 AND ton=g2 OR ton 
=-h2 THEN GOTO 898 
1158 IF ton({n)=h2 AND ton=a2 THEN 
G0OTO 898 
1168 
1178 ° ABSPEICHERUNG 
1189 
1198 n=n+1:ton(n)=ton 
1288 PRINT ton;:SOUND 7,ton,8, 15,1 
1218 IF n=rt OR n>=999 OR INKEY$<>" 


" THEN GOTO 288 

1228 GOTO 898 

1238 

1248 ° ABSPIELSCHLEIFE 
1258 
1268 IF n-® THEN GOTO 288 

1278 FOR fw=1 TO n 

1288 IF r=1 THEN hi=ton(n-fFw+1)*#fak 


1 ELSE h1=ton( fw) #fakı1 

1298 IF r=2 THEN h2=ton{n-fw+1)*fak 

2 ELSE h2=ton( fw) #fak2 

1388 IF r=4 THEN hA=ton(n-fw+1)*#fak 

4 ELSE h4=ton( fw) #fak4 

1318 SOUND 1,h1+M1,bn,15,1,1,8 

1328 SOUND 2,h2+M2,bn, 15,1,1,8 

1338 SOUND 4,h4+M4,bn, 15,1,1,® 

1348 IF INKEY(8)<>-1 AND bn>=6 THEN 
bn=bn-1:LOCATE #2,2,28:PRINT #2,bn 

-5;" “ 

1358 IF INKEY( 1)<>-1 AND bn<98 THEN 
bn=bn+1:LOCATE #2,2,28:PRINT #2,bn 

ER “ 

1368 IF bn>=21 THEN GOSUB 1458 ELS 

E LOCATE #2,6,28:PEN #2,2:PRINT #2, 


1378 NEXT:GOTO 1278 

1388 ’ 

1398 ° Unterprogramm TASTATURABFRAG 
E 

1408 

14198 

1428 *° Tastaturdefinition 

1438 ° fuer Stereokanaele 

14340 

1458 IF INKEY$=" " THEN 288 


1468 PEN 2,1 
1478 IF INKEY(64)=-8 THEN kan=1:L0CA 
TE #2,2,2:PEN #2,2:PRINT #2,CHRA$( 23 
1) ;STAING$( 29, 32) 
1488 IF INKEY(65)=-8 THEN kan=2:LOCA 
TE #2,2,2:PEN #2,2:PAINT #2,5STAING$ 
(11,32) ;CHR$( 231) ;STRING$( 17,32) 
1498 IF INKEY(57)=®8 THEN kan=4:L0CA 
TE #2,2,2:PEN #2,2:PRINT #2,STRING$ 
(22,32) ;CHA$( 231) 
1588 IF INKEY(56)=-® THEN kan=7:LOCA 
TE #2,2,2:PEN #2,2:PAINT #2,CHA$( 23 
1);" ";CHA$( 231) ;"” 

";CHRA$( 231) 
15108 * 
1528 
1538 
1548 
1558 PEN 42,1 
1568 IF INKEY(2)=8 AND kan=1 AND fa 
k1<=16 THEN fak1=-fak1*2:LOCATE #2,1 
‚„A:PRINT #2,fak1;" "” 
1578 IF INKEY(8)=@ AND kan=1 AND fa 
kK1>=1 THEN faki=fak1/2:L0CATE #2,1, 
A:PRINT #2,fak1;" " 


Oktavenveraenderung 
fuer Kanal A 
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| | LISTING 


1588 
1598 
1688 
1518 
1628 IF INKEY(2)=B AND kan=2 AND fa 
KEzIe THEN fak2= fak2#2: LOCATE #2,1 
‚„a:PRINT #2,fak2;"” 

1630 IF INKEY(8)=-® AND kan=2 AND fa 
k2>=1 THEN fak2=fak2/2:L0CATE #2,12 
‚4:PRINT #2,fak2;"” ” 

1648 
1658 
1668 
1678 
1688 IF INKEY(2)=® AND kan=4 AND fa 
k4<-16 THEN fak4-fak4#2:L0OCATE #2,2 
3,4:PRINT #2,fak4;"” ” 

1698 IF INKEY(8)-® AND kan=4 AND fa 
k4>=1 THEN fak4=-fak4/2:L0CATE #2,23 


Oktavenveraenderung 
fuer Kanal B 


Oktavenveraenderung 
fuer Kanal C 


‚4: BRGE #2,fak4;” ” 
1788 
1718 ”° Oktavenveraenderung 


1720 ” 
1730 ” 
1748 IF INKEY(®)-® AND kan-7 AND fa 
k4>=1 AND fak1>=1 AND fak2>=1 THEN 
fak4=fak4/2:fak1=fak1/2:fak2=fak2/2 
:LOCATE #2,1,4:PRINT #2,fak1:LOCATE 
#2,12,4:PRINT #2,fak2:LOCATE #2,23 
‚4:PRINT #2,fak4 
1758 IF INKEY(2)=® AND kan=7 AND fa 
kA<=16 AND faki<=16 AND fak2<=16 TH 
EN fak4=fak4#2:fak1=fak1*2:fak2=fak 
2*2:LOCATE #2,1,4:PRINT #2, fak1:LOC 
ATE #2,12,4:PRINT #2,fak2:LOCATE #2 
‚23,4: :PRINT #2,fak4 
1768 
1778 


fuer Kanal A,B,C 


ei 

1788 ’zum Ein- u. Aus- 

1798 ’schalten der Akkorde 

1809 ” 

1818 IF INKEY(9)=® AND kan=1 THEN r 
=9:LOCATE #2,2,8 :PEN #2,1:PRINT #2 
‚CHR$( 243) 

1828 IF INKEY(9)=8 AND kan=2 THEN r 
=8:LOCATE #2,13,8:PEN #2,1:PRINT #2 
‚CHR$( 243) 

1838 IF INKEY(9)=8 AND kan=4 THEN r 
=8:LOCATE #2,24,8:PEN #2,1:PRINT #2 
‚CHRA$( 243) 

. 1848 IF INKEY(9)=32 AND kan=1 THEN 
r=1:LOCATE #2,2,8:PEN #2,2:PRINT #2 
‚CHR$( 242) 

1858 IF INKEY(9)=32 AND kan=2 THEN 
r=2:LOCATE #2,13,8:PEN #2,2:PRINT # 
2,CHR$( 242) 

1868 IF INKEY(9)=32 AND kan=4 THEN 
r=-4:L0OCATE #2,24,8:PEN #2,2:PRINT # 
2,CHR$( 242) 

1878 RETURN 


1888 
1898 
1988 ’ 
1918 MODE 1 

1928 WINDOW #8,1,48,1,25:WINDOW #2, 
9,39,4,24:PAPER #2,3:PEN #2,1:CL5 # 


ABSPIELSCREEN 


2 
1938 WINDOW #3,11,38,14,21:PAPER #3 
‚8:CL5 #3 

1948 WINDOW #1,18,37,13,28:PAPER fi 
‚1:PEN #1,8:CL5 #1 

1958 MOVE 8,8:DRAW 98,399, 1:DRAWR 63 
9,8,1:DRAWR ®,-399,1:DRAW 8,8,1:MOV 


E 119,8:DRAWA 8,36®8,1:DRAW 639,360, 
1 
1968 LOCATE 9,2:PRINT"links mi 
tte rechts" 
1978 LOCATE #2,2,4:PRINT #2,"”4 

4 4” 


1988 LOCATE 2,7:PRINT"Oktave":LOCAT 

E 2,13:PRINT” Toene"”:LOCATE 2,11:PR 

INT" Akk.":LOCATE 2,5:PRINT" Kanal" 

:LOCATE 2,23:PRINT" Tempo":LOCATE # 

2,2,28:PRINT #2,bn-5;:PRINT #2," 
SPACE -> MENUE " 


1998 I.DCATE #1,2,2 

2888 FOR fw=1 TO n 

2B1® IF ton( fw)=c2 THEN t$="C" 
2828 IF ton( fw) =d2 THEN t$="D" 
2838 IF ton(fw)=e2 THEN t$="E" 
2848 IF ton(fw)=f2 THEN t$="F"” 
2858 IF ton( fw)=g2 THEN t$="G" 
2868 IF ton( fw)=a2 THEN t$="A" 
2878 IF ton{ fw)=h2 THEN t$="B" 
2888 IF ton(fw)=-c THEN t$="C’" 
2898 IF ton(fw)=d THEN t$="D’" 
2188 IF ton(fw)=e THEN t$="E’"” 
2118 IF ton(fw)=f THEN t$="F’" 
2128 IF ton(fw)=g THEN t$="G’" 
2138 IF ton(fw)=a THEN t$="A’" 
2148 IF ton(fw)=h THEN t$="B’" 
2158 IF ton(fw)=B THEN GOTO 288 
2168 PRINT #1,t$;” "; 

2178 NEXT 

2188 IF m=1 THEN m=8:6G0T0 1278 
2198 GOTO 1238 

2288 ’ 

2218 "PROGRAMMIEREN 

2228 ” 

2238 GOSUB 3438 

2248 LOCATE#1,8,8:PRINT#1," PROG 
RAMWIEREN" 

2258 WINDOW#8,1,48,10,25 

2268 n=8 

2278 IF n>=999 THEN m=1:G6G0T0O 1888 
2288 n=n+1 

2298 PRINT 

2388 PRINT | 
2318 PRINT n;:PEN 1:INPUT ;"”. Ton"; 
t$ 


LISTING | 


2328 IF t$="C" OR t$="c" THEN ton( 
n) =c2 

2338 IF t$="D" OR t$="d" THEN tonfn 
)=d2 

2348 IF t$="E" OR t$="e" THEN ton(n 
)-e2 

2358 IF t$="Ff" OR t$="f"” THEN tonf(n 
a 

2368 IF t$=-"G" OR t$="g" THEN ton(n 
)=g2 

2378 IF t$="a" OR t$="A" THEN ton(n 
)=a2 

2388 IF t$="B" OR t$="b" THEN ton(n 
)=h2 

2398 IF t$="C’"” OR t$="c’" THEN ton 
(n)=c 

2488 IF t$="D’" OR t$="d’" THEN ton 
(n)=d 

2418 IF t$="E’"” OR t$=-"e’" THEN ton 
(n)=e 

2428 IF t$="F’" OR t$="f’" THEN ton 
(n)=f 

2438 IF t$="G’" OR t$="g’" THEN ton 
(n)=g 

2448 IF t$="A’" OR t$="a’" THEN ton 
(n)=a 

2458 IF t$="B’" OR t$="b’" THEN ton 
(n)=h 

2468 IF t$="z" OR t$="Z" THEN PRINT 


CHR$( ?) :PRINT:n=n-1:6G0T0 2318 

2478 IF ton{n)=® THEN n=n-1:m=1:60T 
0 288 
2488 IF ed=B GOTO 2278 ELSE n=fw-1: 
GOTO 3188 
2498 
25880 
2518 ° LADEN (BEI DISKETTENBETRIEB 
BITTE ANPASSEN) 
2528 ° 
2538 MODE 1 
2548 PRINT:PRINT:PEN 1:LOCATE 8,2:P 
RINTSE@UEN’ZER S TA R"”:P 
RINT:PEN 3 
2558 LOCATE 12,4:PRINT CHR$( 164) "1 
987 BY 5. Basler" 


Kassettenoperationen 


2568 PEN 3:LOCATE 16,6:PAINT" LAD 
EN” 

2578 ORIGIN 88,399 

2580 DRAW 495,8,1 

2598 DRAW 418,-118 

26088 DRAW 88,-110 

2618 DRAW 8,8 


2628 LOCATE 4,14:PRINT"Geben Sie bi 
tte den Namen des" 

2638 LOCATE 4,16:INPUT; "Stueckes ei 
n:",na$ 

2648 SPEED WRITE 1:0PENIN"!"+na$ 
2658 INPUT #9,n 

2668 FOR fw=1 TO n 

2678 INPUT #9,ton( fw) 


2688 NEXT:CLOSEIN 
2698 GOTO 288 
2780 
2718 " ABSPEICHERN (BEI DISKETTENBE 
TAIEB BITTE ANPASSEN) 

2728 


2738 MODE 1 
2748 PRINT:PRINT:PEN 1:LOCATE 8,2:P 


RINTSEQUENZER S TA RA":P 

RINT:PEN 3 

2758 LOCATE 12,4:PRINT CHR$( 164) "1 

987 BY S. Basler" 

2768 PEN 3:L0OCATE 12,6:PRINT" SPE 
ICHERN" 

2778 ORIGIN 88,399 

2788 DRAW 495,8,1 

2798 DRAW 418,-118 

2888 DRAW 88, -118 

2818 DRAW 8,8 

2828 LOCATE 4,14:PRINT"Geben Sie bi 
tte den Namen des" 

2838 LOCATE 4,16:INPUT;"Stueckes ei 
n:",na$ 

2848 SPEED WRITE 1:0PENOUT "!"+na$ 

2558 

28698 
2878 

2888 

2898 

2988 

2918 

2928 ’ 

2938 

2948 GOSUB 3438 

2958 LOCATE#1,11,8:PRINT#1," EDI 

SIE BZE:N =” 

2968 WINDOW#®,1,48,10,25 

2978 FOR fw=1 TO n 

2988 IF ton{fw)=c2 

2998 IF ton( fw) =d2 

3888 IF ton( fw) =e2 

3818 IF ton( fw)=f2 
3828 IF ton( fw)=g2 

3838 IF ton( fw) =a2 

3848 IF ton( fw) =h2 

3858 IF ton(fw)=c 
3868 IF ton(fw)=d 

387?® IF ton(fw)=e 
3888 IF ton(fw)=f 

3898 IF ton(fw)=g 
3188 IF ton(fw)=a 

3118 IF ton(fw)=h 
3128 PRINT 

3138 PRINT 

348 PRENET 3 wr Ton er 
:IF VPOS( #8) >24 THEN CALL &BB86:L0C 

ATE 1,34322® NEXT 

3158 NEXT 

3168 PRINT 


PRINT #9,n 

FOR fw=-i1 TO n 
PRINT #9,ton( fw) 
NEXT 

CLOSEOUT 

G0T0 288 


EDITIEREN 


THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 


t$="C" 
t$="D" 
t$="rF" 
t$="G" 
t$="B" 
t$-"c’" 
Egs€="Dr* 
t$="E Pl 
t$="F ‚sw 
t$="G’" 
t$="A’" 
t$="B" 
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LISTING 


3178 PRINT:PEN 3:INPUT"Welcher Ton 
soll geaendert werden”; n:IF n<1 THE 
N G0OTO 3178 ELSE ed=1:LDOCATE 22,22: 
GOTN 2318 

3188 GOTO 288 

3198 
3288 
3218 
3228 MODE 1 

3238 GOSUB 3438 

3248 LOCATE#1,6,8:PRINTf1," INS T 
RUMENTWAHL " 

3258 WINDOW #8,1,48,18,25 
3268 LOCATE 3,3:PRINT "” <A> 


INSTRUMENT 


Sound A 


3278 LOCATE 3,4:PRINT ” <B> Sound B 


3288 LOCATE 3,5:PRINT ” <C> Sound C 
” 


3298 LOCATE 3,8:PRINT ” <D> Sound D 
” 


3388 LOCATE 3,7:PRINT "” <E> Sound E 


3318 LOCATE 3,9:PRINT ” <F> Sound F 

3328 

6” 

3338 LOCATE 3,15:INPUT ;"EINGABE 

"‚a$ : ’a$=INKEY$: ’IF a$=-"" THEN GOT 

0 2558 

3348 IF a$= "A" OR a$=-"a" THEN PRIN 

T:ENT 1,239, -380,18 

3358 IF a$="B" OR a$="b" 
:ENT 1,239,38,1®8 

3368 IF a$="C" OR a$="c" 
:ENT 1,35,-18,1,35, 18,1 

3378 IF a$="D" OR a$="d" 
:ENT 1,18,1,5,1,-198,1 

3388 IF a$=-"E" OR a$="e" THEN PRINT 
:ENT -1,108,1,2:ENV 1,15,-1,28 

3398 IF a$="Ff" OR a$="f" THEN PRINT 

:ENT 1,18,1,1,1,-15,1 :ENV 1,180,®, 

1,14,-1,15 

3488 IF a$="G" OR a$="g" THEN PRINT 

:ENV 1,2,14,1,3,-5,1,11,-1,12:ENT 1 

BT ur 

3428 GOTO 288 

3438 MODE 1:WINDOW#41,1,48,1,9:PENf#1 

‚8:PAPER#1,1:CL5f1 

3440 ” 

3458 ° UNTERPROGRAMM 

3468 ” KLAVIATUR ZEICHNEN 

3478 

3488 ORIGIN 78,388 

3498 DRAW 8,288,8 

3588 ORIGIN 148,308 

3518 DRAW 98,288 

3528 ORIGIN 218,388 

3538 DRAW 8,288 


3548 ORIGIN 288,388 


LOCATE 3,18:PRINT ” <G> Sound 


THEN PRINT 
THEN PRINT 


THEN PRINT 


3558 
3568 
3578 
3588 
3598 
3689 
3618 
3628 
3638 
3648 
3658 
3668 
3678 
3688 
3698 
3788 
3718 
3728 
3738 
3748 
3758 
3768 
3778 
3788 
3798 
3888 
3818 
3828 
3838 
3849 
3858 
3868 
3878 
3888 
3898 NEXT 

3988 RETURN 


SEQUENZER 


Fortsetzung von Seite 32 


wie beim normalen Programmiervorgang, die Abfrage 
der Töne stattfinden. Man darf jetzt jedoch bei den 
schon vorhandenen Tönen keinen neuen Ton einge- 
ben, da der vorhandene dann gelöscht würde. Statt 
dessen drückt man bei denschon vorhandenen Tönen 
die ENTER-Taste und fügt danach die neuen Töne an 
(hat man z.B. schon 4 Töne programmiert, drückt 
man viermal ENTER und bei Abfrage des fünften To- 
nes gibt man dann den neuen Ton ein). 

Natürlich kann man beim PROGRAMMIEREN auch 
die Notenwerte festlegen. Dadurch kann man dann 
ein sehr rhythmisches Abspielen der einzelnen Se- 
quenzen erzeugen. 

Hierbei muß man allerdings die Vorkenntnisse besit- 
zen, daß es Ganze-, Halbe-, Viertel-, Achtel-, Sech- 
zehntel-Noten usw. gibt. Will man nun ein Musik- 
stück programmieren, welches Sechzehntelnoten 
beinhaltet, muß man so vorgehen, daß man die gan- 
zen Noten 16mal nacheinander eingibt, die Halben 
acht mal, die Viertel viermal, die Achtel zweimal 
und die Sechzehntel einmal. Dabei muß man 
allerdings bedenken, daß dadurch die Anzahl der 
Noten (nämlich 1000) wesentlich verringert wird. 


DRAW 9,298 
ORIGIN 358,388 
DRAW 8,288 
ORIGIN 428,308 
DRAW 8,208 
ORIGIN 498,388 


DRAW 98,288 
ORIGIN 568,388 


DRAW 8,288 

ORIGIN 8,388 

DRAW 639,8 

FOR a=58 TO 98 
ORIGIN a,348 

DRAW 8, 198 

NEXT a 

FOR a= 128 TO 168 
ORIGIN a,348 

DRAW 8, 188 

NEXT a 

FOR a = 268 TO 3988 
ORIGIN a,348 

DRAW 8, 188 

NEXT a 

FOR a = 338 TO 378 
ORIGIN a,348 

DRAW 8, 188 

NEXT a 

FOR a =488 TO 448 
ORIGIN a,348 

DRAW 8, 188 

NEXT a 

FOR a-548 TO 588 
ORIGIN a,348 

DRAW 8, 188 
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aktiv) 


Funktionspunkt 2: Zufallsgenerator 


Diese Funktion ist recht einfach zu handhaben, da 
man lediglich die Anzahl der durch den Compu- 

ter zu errechnenden Töne eingeben muß. Hierbei ist 
es jedoch ratsam, hinterher noch den EDITOR zu 
benutzen. 

Die Funktion ist sehr witzig für Musiker, die sehr 
experimentierfreudig sind und für Leute, die über 
keine Notenkenntnisse verfügen. 


Funktionspunkt 3: Laden 


Dieser Programmteil erlaubt Ihnen, Ihre auf Diskette 
oder Kassette abgespeicherten Sequenzen zu laden. 


Funktionspunkt 4: Abspeichern 
Wie Punkt 3, nur zum Abspeichern. 


Funktionspunkt 5: Musizieren 


Wenn man mit dem Sequenzer professionell musizie- 
ren will, ist es unbedingt notwendig, den Computer an 
einen Mixer oder an eine Stereoanlage anzuschließen, 
da nur dann die fantastischen Stereoeffekte des 
Schneidercomputers zur Geltung kommen. 
Die Effekte während des Abspielens des Sequenzers 
erreicht man durch folgende Zusatzfunktionen. 
a) Ändern der Oktaven 
Das Ändern der Oktaven erfolgt durch die Pfeile des 
Cursorblocks nach oben (höhere Oktaven werden 
gewählt) und nach unten (tiefere Oktaven werden ge- 
wählt). Ein besonderer Punkt ist weiterhin, daß die 
Oktaven der drei vorhandenen Kanäle (links/mitte/ 
rechts) individuell bezüglich ihrer Tonhöhe geändert 
werden können. Benötigt werden dazu die Tasten 
1, 2, 3 und 4 neben der BREAK-Taste. 

= Kanal links kann geändert werden 
Kanal Mitte kann geändert werden 
Kanal rechts kann geändert werden 
= alle Kanäle können geändert werden 
b) Änderung des Tempos 
Dazu werden die Pfeile des Cursorblocks verwendet. 
Pfeil nach links = Tempo wird schneller 
Pfeil nach rechts = Tempo wird langsamer 
Achtung: Wenn das Tempo die Zahl 15 erreicht hat, 
erscheint ein Ausrufezeichen, und es kann keine Funk- 
tion, außer das Tempo geändert werden. 
c) Akkordbegleitung 
Akkordbegleitung wird dadurch erreicht, indem man 
erst den Kanal mit Hilfe der bei Punkt a) beschriebenen 
Kanaltasten 1 — 4 wählt und dann diesen Kanal 
durch Drücken der COPY-TASTE reserviert. Das Ein- 
setzen der Begleitung erfolgt erst dann, wenn die 
COPY-TASTE zusammen mit der SHIFT-Taste ge- 
drückt wird. Die Begleitung wird durch Drücken der 
COPY-Taste wieder aufgehoben. 
d) Zurück zum Menü 
Wird erreicht, durch Drücken der SPACE-TASTE. 


Wu 


Funktionspunkt 6: Tonmodulation 


Mit diesem Programmteil können die einzelnen 
INSTRUMENTE noch weiter bearbeitet werden. 
Es muß jeweils ein Wert eingegeben werden, wobei 
—2,0,2 empfehlenswert ist. Die Werte werden durch 
nochmaliges Wählen der TONMODULATION er- 
reicht. Jetzt muß für die abgefragten Werte jeweils 
eine Null eingegeben werden. 


LISTING. 


Funktionspunkt 7: Editieren der Melodie 


Bei diesem Programmpunkt werden zuerst alle vor- 
handenen Töne aufgelistet. Dann muß die Nummer 
des Tones eingegeben werden, den Sie ändern wollen. 


Funktionspunkt 8: Instrument 


Es stehen Ihnen sieben verschiedene Sounds zur Ver- 
fügung. Die Sounds werden durch Wählen eines ande- 
ren Sounds wieder gelöscht. Falls Ihnen die vorhande- 
nen Sounds nicht gefallen, können Sie beliebig viele 
in den Zeilen 3190 — 3430 ergänzen. Mein Lieblings- 


sound war übrigens Sound G. 


(Sascha Basler) 


BÖRSE BÖRSE BÖRSE 


CPC 6128 * Suche Musik- 
u. Midi-Softw. * Music Sy- 
stem, Sampler, Sequenzer, 
Library, Sounds, Dumper 
etc. Tel. 0231/48307. Bitte 
öfters versuchen! 
Anwender, Utilities u. Gra- 
fikprogramme gesucht. 
Auch Tausch möglich. B. 
Decker, Luxemburgerstr. 
253,5000 Köln 41 
Anfänger sucht günst. DDI-1 
u. Software. Angebote an 
Dirk Espeter, Beethoven- 
str. 38, 4408 Dlülmen, T. 
02594/83546 

!!Tausch!! Competition 
PRO gg. Schneider J2. Tau- 
sche auch Softw. auf 3 Zoll. 
Frank Hengartner, Vorburg, 
CH-9473 Gams 

Tausche Software aller Art 
auf Disk. für CPC 6128. Su- 
che jede Art v. Druckpro- 
grammen. Mache Sicher- 
heitskopien f. 3 DM und 
drucke Listings, Preis n. 
Absprache. Ruft an: 02105/ 
8359. PS: suche gebr. Bü- 
cher 

CPC 6128, grün, 1 Jahr 

alt, äußerst selten benutzt, 
für 600 DM. Tel. 0202/ 
428347 ab 18 Uhr 

Verk. CPC 464, grün u. 
Farbe, DD1, F1X, SP256, 
dBase, Wordstar m. Mail- 
merge, Multiplan, viele 
Fachbücher, ca. 20 3”-Disk. 
u. Zeitungen. Auch einzeln. 
Gesamtpreis 1.300 DM. 
Tel. 09151/70222 ab 18 
Uhr 


SUCHE SOFTWARE! 
Listen an Markus Praller, 
Untere Wart 10, 8670 Hof 
GEEBERERERESENLEREEAREN 
DISKETTEN 
51/4”, 48 tpi DM 0,81, 2D 
3 1/2‘, 135 tpi DM 2,60 1DD 
3 1/2“, 135 tpi DM 2,75 2DD 
3° Markendisk. DM 6,80 2CF 
Allg. Austro-Agent. Ringstr.10 
D-8057 Eching, Tel.: 08133/ 
6116 
EGENEGEDANEFERNEBCHABENE 


Verkaufe wg. Umstieg: 
CPC-664-Anlage m. Zweit- 
laufw., Datarec., sehr viel 
Orig.-Softw. u. Unmengen 
von Lit. Neu 5.000 DM; 
Preis VS! Info tägl.: O511/ 
794436 (18—20 Uhr). Jörg 
Speckbacher, Westermann- 
weg 3 a, 3 Hannover 21 


LICHTGRIFFEL 
mit Programm für CPC 
464 oder CPC 664 + CPC 
6128 nur 49,— DM. Ver- 
sand gegen Scheck/Nach- 
nahme. Info gratis! 

Fa. Schißlbauer, Postfach 
1171S, 8458 Sulzbach, 
Tel. 09661/6592 bis 21h 


Verk. CPC 464 Farbe, 18 
Mon. alt, Drucker DMP2000, 
7 Mon., u. gr. Anzahl an 
Spiel- u. Anwenderprog. 
(Kass.), Bücher, CPC-Hefte 
ab 12/85. NP 3.000 DM, 
Preis 1.400 DM. Tel. 06293/ 
1057 


LISTING > 


BIOMASTER 
HEUTE 


„GUT 
DRAUF”? 


Der Biorhythmus gehört fast zu den Standardpro- 
grammen für den Computer. Vielleicht liegt es daran, 
daß sich kaum noch jemand an dieses Thema wagt. 
Warum eigentlich? Denn oftmals winkt man voreilig 
mit der Bemerkung ‚Alter Hut“ ab, muß dann aber 
feststellen, daß solch ein Listing eben doch in der 
Sammlung fehlt. Wie dem auch sei, Schneider aktiv 
holt Versäumtes nach und veröffentlicht den Bio- 
master. 

Auch Sie werden es sicher schon öfter einmal be- 
merkt haben: Die Menschen fühlen sich nicht jeden 
Tag gleich wohl und sind auch nicht an jedem Tag 
gleich leistungsfähig. Nicht unbedingt liegt dies am 
Montag oder an der Tatsache, daß ein Tag zwangsläu- 
fig mit dem Aufstehen beginnt. 

Damit Sie nun endlich wissen, ob Sie einen „guten“ 
oder einen ‚‚schlechten‘“‘ Tag haben, hat unser Autor 
Thomas Gehrmann das Programm ‚‚Biomaster“ für 
alle Schneider-aktiv-Leser geschrieben. 


Wohlbefinden ist eine Sache des Geburtsdatums: 


Wohlbefinden und Leistungsfähigkeit verändern sich 
in periodischen Schwankungen. Körperlich befinden 
wir uns alle 11,5 Tage über dem Durchschnitt. Die 
nächsten 11,5 Tage ist die körperliche Leistungsfähig- 
keit dann unterdurchschnittlich. 

Beim psychischen Zustand beträgt die Schwingungs- 
dauer 2 mal 14 Tage und bei der geistigen Leistungs- 
fähigkeit 2mal 16,5 Tage. 

Da sich diese Leistungsschwankungen durch Sinus- 
funktionen ausdrücken lassen, liegt es nahe, die Be- 
rechnungen durch den Computer ausführen zu lassen. 
Dazu bieten wir Ihnen das richtige Programm an: 
Biomaster. 

Bei der Eingabe des Geburtstages und des aktuellen 
Datums ist zu beachten, daß der Tag, der Monat und 
das Jahr jeweils durch Punkte, aber ohne Leerzeichen 
eingegeben werden. Ein Beispiel: 04.05.1987 
Danach gibt Ihnen dann Ihr CPC zunächst die Tages- 
werte für das aktuelle Datum aus. Anschließend se- 
hen Sie die Kurve für den jeweiligen Monat. Man 
kann dann auch die Entwicklung über einen größeren 
Zeitraum betrachten. 

Wenn Sie eine Druckerausgabe wünschen, können Sie 
an der im Listing vermerkten Stelle eine Hardcopy- 
Routine eingebaut werden. Wir haben hier auf den 
Abdruck der Hardcopy-Routine verzichtet, da diese 
Routinen schon zur Genüge veröffentlicht wurden 
und auch nicht für alle Drucker gelten können. 

Noch eines: Diese ganze Geschichte der Biorhythmik 
stellt nur eine von vielen Theorien dar. Man sollte 
das Programm nicht so ernst nehmen. Benutzen Sie 
es wie ein Horoskop. Schauen Sie sich die Ergebnis- 
se hinterher an und Sie werden sehen: Sie stimmen 
immer. (JE) 


10 RR 

20 ’* BIOMASTER 

30, °# VON 

40 ’* THOMAS GEHPRMANN 
so ’# FUER 

60 ’* SCHNEIDER AKTIV %* 

70 ’* CPC 464/664/6128 Jje* 

BHRHRHSHSHHHHHHHHRHRHRRI EN NE 

GOSUB 680:REM Dateneingabe 

90 GOSUB 520:REM Tageswerte 

100 

> AEBR Monatskurve zeichnen ##*# 
130 MODE 1 

140 mlen=jlen( bm) - jlen( bm- 1) 

150 IF bj MOD 4=0 AND bm=2 THEN mle 
n=mlen+1 

160 t1=talter-bt 

170 t2=t1+mlen 

180 ORIGIN 64, 186 

190 PEN 2:LOCATE 17-LEN(monat$( bm)) 
/2,1:PRAINT monat$( bm) ;bj; 

200 PLOT 0,-184,3:DRAW 0, 184 

210 DRAW mlen#16, 184 

220 DRAW mlen*#16,-184 

230 DRAW 0,-184 

240 PLOT 0,0:DRAW mlen*#16,0 

250 TAG 

260 FOR k=184 TO -172 STEP -89 

270 MOVE -64,k:PRINT USING"+#.#”;Ck 
7128} ; 

280 NEXT k 

TAGOFF 

z=0 

FOR x=t1 TO t2 STEP 0.125 
z=2t0.125 

y1=S5IN( x/23#360) #180-3 

y2=S5IN( x/28*360) #180-3 

y3=SIN( x/33#360) #180-3 
x1=(x-t1)*#16 

PLOT x1,y1,1:DRAWR 0,6 

PLOT x1,y2,2:DRAWR 0,6 

PLOT x1,y3,3:DRAWR 0,6 

IF INT(z)=z THEN PLOT x1,0:DRAW 
x1,-15:IF INT(z/10)=z/10 THEN DRAW 

R2U,=15 

NEXT x 

PRINT CHR$( 23) ;CHR$( 1) ; :TAG 
PLOT x1+2,y1+8,1:PRINT"”KIrp”; 

PLOT x1+2,y2+8,2:PRINT"Psych”; 
PLOT x1+2,y3+8,3:PRINT"Geist”; 
TAGOFF :PRINT CHA$( 23) ;CHR$( 0); 
CALL &BB18 

475 "hier bei Bedarf Ihre Hardcopy- 

Routine einbauen 


aa 


1480 GOTO 80 


490 

500 ’### Tageswerte berechnen und a 
usgeben ### 

2 N 


39 


| LISTING 


520 LOCATE 7,15:PARINT USING"Werte a 
m #H.E #AAH";bt,monat$(bm) ‚bj 

530 PEN 1:LOCATE 5,17 

540 PRINT USING "Klrperlicher Zusta 
nd : +#.#4 ";SIN(talter/23*360) ; 
550 IF SIN(talter/23#360+1) >SIN( tal 
ter/23#360) THEN PRINT CHR$(240); E 
LSE PRINT CHR$( 241); 

560 PEN 2:LOCATE 5,19 

570 PRINT USING "Psychischer Zusta 
nd : +#.44 ";SINCtalter/28*360) ; 
580 IF SIN(talter/28*360+1) >SIN(tal 
ter/28*360) THEN PRINT CHRA$(240); E 
1.SE PRINT CHR$( 241); 

590 PEN 3:LOCATE 5,21 

600 PRINT USING "Geistiger Zusta 
nd : +#.44#4 ";5INÜtalter/33*#360) ; 
610 IF SIN(talter/33#*360+1) >SIN( tal 
ter/33#360) THEN PRINT CHR$(240); E 
LSE PRINT CHR$( 241); 

620 LOCATE 9,24:PRINT"Beliebige Tas 
te dr}cken"”; 

630 CALL &BB1B 

640 RETUAN 

650 

660 ’*** Initialisierung #*# 

670 

680 IF h=99 THEN 850 

690 DEFINT a-s 

700 DEFREAL t-z 

710 DIM monat$( 12), jlen( 12) 

720 DATA 31,Januar,59,Februar,90,M{ 
rz,120,April,151,Mai,181,Juni,212,J 
uli,243,August,273,September, 304,0k 
tober, 334, November, 365,Deze 

mber 
730 
740 
750 


FOR m=1 TO 12 

READ jlen(m) ‚monat$(m) 

NEXT m 

760 SYMBOL AFTER 122 

770 SYMBOL 123,666,0,678,6C0,87C,&6CC 
‚#E76,0:REM ae 

780 SYMBOL 124,666,0,630,666,666,66 
6,&63C,0:REM oe 

790 SYMBOL 125,8666,0,666,666,666,66 
6,&3E,0:REM ue 

800 h=99 

810 DEG 

520 ” 
830 
#4 

840 ’ 

850 MODE 1:BORDER 0:INK 0,0:INK 1,1 
8:INK 2,6:INK 3,26:PEN 1 

860 LOCATE 15,1:PRINT"Biomaster” 
870 PEN 3:LOCATE 3,4: INPUT"Geburtsd 

atum ";geb$ 

880 LOCATE 3,7:INPUT"Heutiges Datum 
"-dat$ 

890 gt=-VAL(LEFT$(geb$,2)) 


'#* Dateneingabe und Berechnung 


900 gm-VAL(MID$( geb$, INSTRi geb#&,".* 
J+1,2)) 

910 gj=VAL( RIGHT$( geb$,4)) 

920 bt=VAL(LEFT$(dat$,2)) 

930 bm=VAL( MID$( dat$, INSTR( dat$,"." 
1+1;2)) 

940 bj-VAL( RIGHT$( dat$,4)) 

950 IF gt*gm#gj*bt*bm*b j=0 THEN 850 
960 talter=(bj-gj) *365-INT(gj/4) +IN 
TCb3/4) -INT(b 35/100) +INT( gj/ 100) +INT 

(bj/400) -INT( gj/400) + jlen( bm-1) -jle 
n{ gm-1) +bt-gt 

970 IF gm<3 THEN IF (gj MOD A=0 AND 
NOT(gj MOD 100=0)) OR gj MOD 400=0 
THEN talter=talter+1 

980 IF bm<3 THEN IF (bj MOD A=0 AND 
NOTCbj MOD 100=0)) OR bj MOD 400-0 
THEN talter=talter-1 

990 IF talter<O THEN 850 

1000 RETURN 


NEUE 
RSX- 
BEFEHLE 


Unser Autor Markus Adamski hat für alle Schneider- 
aktiv-Leser ein Programm geschrieben, das neue RSX- 
Befehle zur Verfügung stellt. Diese Befehle laufen auf 
allen drei CPCs. 


ILEFT 

Mit diesem Befehl können Fenster auf dem Bildschirm 
byteweise nach links gescrollt werden. Zur Ausführung 
müssen 4 Werte, die durch Kommatas getrennt sind, 
an den Befehl angehängt werden: Linker Rand (0-79), 
rechter Rand (0-79) oberer Rand (0-200), unterer 
Rand (0-22). Dabei muß der linke Rand logischerwei- 
se kleiner als der rechte und der obere Rand kleiner als 
der untere sein. Werden diese Bedingungen nicht er- 
füllt, so kann es Ihnen passieren, daß der CPC abstürzt 
und „nichts mehr geht“. 


IRIGHT 

Bei diesem Befehl wird der Bildschirm in den von Ih- 
nen definierten Grenzen nach rechts gescrollt. Für die 
Parameterübergabe gelten die gleichen Bedingungen 
wie bei ILEFT. 


IUP 

Mit diesem Befehl können Fenster rasterzeilenweise 
nach oben gescrollt werden. Es werden ebenfalls 

4 Werte benötigt. Linker Rand (0-79), rechter 
Rand (0-79), oberer Rand (0-199), unterer Rand 
(0-199). Sonst gleiche Bedingungen wie ILEFT. 


40 


12 RHRRHHHHHHHHHHHE 

20 °’x* NEUE RSX-BEFEHLE * 
38 °* LEFT,RIGHT,DOWN,UP,OVERLAP %* 
2 °’% BORDER,CLS * 
sg .% VON * 
6 ’%* MARKUS ADAMSKI * 
88 °’%* SCHNEIDER AKTIV % 
„o.'% CPC 464/664/6128 jet 


189 HHHRHHHHRHAHHHHHHRHHRRHRHRRHRRHHEN 
MEMORY KAFFF 

a=kA900: e=kAZAD: zb=260: eze+l 

FOR i =a TO e:READ ds: IF LEFTS(d#S, 1) 
="&*" THEN flag =1 

149 IF (lag AND ps<>VAL(d$)) THEN PRINT 
"Fehler in Zeile "zb+19:END 

159 IF lag THEN PRINT"Data-Zeile "Izb+i 
a" 0.Kk." 

168 IF (lag AND i=e) THEN 208 

178 IF +lag THEN i=i-1:zb=zb+10: ps=9: d$= 
""itlag = 8:60T0 198 

188 d$="&"+d6:POKE i,VAL(d$) ; ps=ps+VAL(d 
®: 

199 IF i < @e THEN NEXT 1 

288 PRINT"Keinen Fehler in-Lader entdeck 
t! 

218 PRINT"Soll abgespeichert werden ? (j 
In)" 

220 x®=LOWERS(INKEY®) 

238 IF x$="j" THEN PRINT"Moment bitte":$S 
AVE "rsx.bin"’,b,kAR92,&2AD:GOTO 268 

248 IF x®<)"n" THEN 220 

258 PRINT"Keine Abspeicherung ertolgt! 
268 PRINT"Initialisierung durch CALL &A® 
88 muss noch erfolgen! 

278 DATA 21,49,A9,01,29,A8,C3,D1,BC,29,A 
2,03, 42,A1,C3,FC, 9829 

2680 DATA AB,C3,44,A8,C3,AB,AB,C3,FS,Al,C 
3,26,A2,C3,61,A2,&09F4 

298 DATA 32,49,47,48,D4,4C,45,46,D4,55,D 
8,44,4F,37,CE, 43, 406409 

300 DATA 4C,D3,4F,56,45,52,4C,41,D9,42,4 
F,52,44,45,D2,00, L9SF& 

318 DATA 20,00,00,020,CD,88,A1,2A,94,A3,1 
1,B2,A2, 3A, 06, A3, LOS@F 

328 DATA 4F,06,09,ED,B®O,ED,5B,84,A3,D5,D 
$,E1,CD,26,BC,Di, L98EC 

330 DATA 22,AE,A2,ED,S3,B9,A2,3A,07,A3,4 
7,05, 2A,AE,A2,ED,&085B 

348 DATA SB,B9,A2,3A,06,A3,4F,26,00,ED,B 
®,2A,AE,A2,CD, 26, LO6EF 

352 DATA BC,22,AE,A2,2A,B9,A2,CD,26,BC,2 
2,B2,A2,C1,18,DB,&90879 

368 DATA ED,SB,22,A3,21,B2,A2,3A,96,A3,4 
F,26,28,ED,B0,C9,&0700 

378 DATA CD,88,A1,2A,82,A3,11,B2,A2,3A,2 
6,A3,4F,06,28,ED, LO64F 

388 DATA B®,ED,SB,02,A3,D5,D5,E1,CD,29,B 
C,D1,22,AE,A2,ED, LOABA 

398 DATA 33,B8,A2,3A,27,A3,47,C5,2A,AE,A 
2,ED,SB, B2,A2,3A,&87E3 


LISTING 
RARRHRRRHHHHRRHRR 


400 DATA 96,A3,4F,06,28,ED, BO, 2A, AE,A2,C 
D,29, BC, 22, AE,A2, 40739 

418 DATA 2A,B®,A2,CD,29,8C,22,B@,A2,C1,1 
8, DB, ED,SB,94,A3, &2@83D 

428 DATA 21,B2,A2,3A,26,A3,4F,06,00,ED,B 
8,C9,CD,88,A1,DD, kO7E6 

438 DATA 7E,04,DD,46,26,90,5F, 16,00, 24,8 
4,A3, 19,22, DA, A3, 0469 

448 DATA CD,19,BD,34,87,A3,47,2A,0A,A3,7? 
E,CS,FS,2B,ED,SB,60750 _ 

459 DATA OA,A3,3A,06,A3,4F,06,00,ED,B&,F 
1,24,04,A3,77, CD, 40698 

468 DATA 26,BC,22,04,A3,2A,@A,A3,CD,26,B 
C,22, 84,A3,C1, 19, &05D1 

478 DATA D6,C9,CD,88,Al,DD,7E,04,DD,46,8 
6,90, 5F, 16, 08, 2A, KB74C 

480 DATA 04,43, 19, 22, 0A, A3,CD, 19, BD, 34,0 
7,43, 47, 24,04, A3, LOS2E 

498 DATA 7E,C5,F5,23,ED,5B,94,A3,3A,86, A 
3,4F, 06,08, ED, BO, Kk071F 

=98 DATA F1,2A,0A,A3,77,C0,26,BC,22,0A,A 
3,2A,94,A3,CD, 26, KB6B1 

518 DATA BC,22,04,A3,C1,19,D6,C9,FE,84,C 
8,CD,DF,Ai,DD,SE, kO93F 

=20 DATA 96, 7B,FE,09,28,81,1D,16,20,21,8 
0,00,19, 22,28, A3,k03A2 

538 DATA DD,46,02,78,FE,20,28,08,05,C5,C 
D, 26, BC,C1,19,F9, k979E 

548 DATA 22,04,A3,2A,08,A3,DD,46,00,78,F 
E,00,28,08,25,05, 0531 

s59 DATA CD,26,BC,C1,19,F9,22,82,A3,DD,7 
E,04, DD, 46,06, 90, 40758 

568 DATA 3C,32,86,A3,DD,?E,29,0D,46,82,9 
0,32, 97,A3,C9, DD, &06A9 

578 DATA 7E,86,DD,46,24,B8,30, 8A, DD, 7E,2 
2,DD, 46,29, B8, 30, 40605 

599 DATA 21,09, E1,E1,C9,FE,20,28,08, FE,® 
1,C9,DD, 7E,08, 18, 07BS 

599 DATA 81, AF,32,06,A3,21,00,C0,22,98,A 
3, 11,06, 00, 86, 86, L835C 

620 DATA 2A,08,A3,3A,06,A3,77,19,7C,B7,2 
8,F7, 2A, 08,43, 23, L058A 

618 DATA 22,08,A3,19,EB,C9,21,00,09,91,0 
0,49, 22,28, A3,ED, L9S6D 

628 DATA 43,04,A3,06,06,C5, 2A, 08, A3,ED,4 
B, 04, A3, 7E,F5, BA, KOSEC 

63@ DATA 77,F1,02,3E,06,23,93,3D,B7,2@,F 
A,7C,B7, 28, EE, 2A, %&064D 

648 DATA 08,A3, 23, 22,08, A3,24,94,A3,23,2 
2,04,A3,C1, 19,05, &04FE 

650 DATA C9,FE,83,C9,DD,66,95,DD,6E,04,2 
2, B8, A2, DD, 46, 92, &07BA 

668 DATA DD,4E,90,ED,43,AE,A2,ED,4B, AE,A 
2,16,89,C5,21,11,&0728 

678 DATA 7F,ED,49,AF,3E,48,82,ED,79,C1,C 
5,00,99,BB,FE,FC,&OPDB 

688 DATA 28,1A,C1,10,FS,ED,4B,AE,A2, 14,7? 
9, BA, 28, DF, 2A, B@,&27BB 

69@ DATA A2,2B,22,B0,A2,7C,BS,FE,80,28,C 


C,C9,C1,C9,KO7AF 


#1 


18° RRRHHAHARAHBEHHRRSHHRHHRHHHEHHHHGE 
20 ’%* DEMOPROGRAMM FUER DIE * 
30 ”’% RSX-BEFEHLE VON MARKUS ADAMSKI * 
U 2 2 0 Ua 2 En 222 2 2 2 me 2 a2 022 222 2 220 
199 ° 

118 MODE 2:MEMORY &3FFF: IOVERLAP 

120 FOR i = 1 TO 18:PRINT "1234567890123 
4367870123456789912345678991234567899123 
4567898" :!NEXT i 

130 FOR i = 1 TO 199: 1LEFT,20,59,3, 120: N 
EXT i 

131 I0VERLAP 

148 FOR i = 1 TO 19:PRINT "1234567899123 
45678991234567890123456789901234567899123 
4567899":NEXT 1 

159 I0VERLAP 

160 FOR i = I TO 190: IRIGHT,30,79,19,88: 
NEXT i 

178 FOR i = 1 TO 1908: 1UP,20,79,3, 198: NEX 
Ti 

188 FOR i = 1 TO 190: 1 DOWN, 20,79,3,129:N 
EXT i 

198 !BORDER, 188,3,18 

208 1CLS,76 

218 !OVERLAP 


IDOWN ; 
Selbe Bedingungen wie bei IUP. Das Fenster wird 
nach unten gescrollt. 


ICLS 

Der Bildschirm wird gelöscht, aber es wird nur jedes 
6. Byte gefüllt. In 6 Durchläufen wird der Bildschirm 
dann ganz gefüllt. Geben Sie einen Wert an, so wird 
der Bildschirm mit diesem Byte gefüllt. 


IOVERLAP 

Mit diesem Befehl wird ein Bildschirminhalt von 
&4000 nach &C000 kopiert. Der Screen ab &C000 
wird nach &4000 kopiert. Das Bild wird ebenfalls 
zerbröselt wie bei ICLS. 


IBORDER 

Mit diesem Befehl flimmert der Border. Es werden 

3 Werte benötigt. Der erste dient zur Angabe, wie oft 
diese Routine dann ausgeführt werden soll und kann 
Werte von 1-65535 annehmen. Der zweite Wert 
muß zwischen I und 255 liegen. Damit wird die 
Bandbreite festgelegt. Der letzte Wert kann zwischen 
1 und 64 liegen. Damit werden die Anzahl der Far- 
ben festgelegt. Wird dieser Wert größer als 64 ge- 
wählt, treten interessante Erscheinungen auf dem 
Bildschirm auf. 


Allen Befehlen muß der geshiftete Klammeraffe vor- | 


angestellt werden. Der Borderbefehl kann jederzeit 
mit ESC abgebrochen werden. Die Befehle werden 
mit CALL & A000 initialisiert. 


(JE) 


LISTING 


HEADER 


Es kommt immer wieder einmal vor, daß man Infor- 
mationen über Files benötigt. Meist handelt es sich 
um Binärfiles, deren Anfangs-, End- und vielleicht 
auch Startadresse man benötigt. Erforderlich wer- 
den diese Angaben, wenn beispielsweise ein Maschi- 
nenprogramm in Verbindung mit verschiedenen Basic- 
programmen zusammenarbeiten soll und das Maschi- 
nenprogramm zu diesem Zweck auf eine andere Dis- 
kette übertragen werden muß. 
Um diese Informationen über ein Programm zu er- 
halten, können Sie das Programm HEADANA einset- 
zen. HEADANA ist die Abkürzung von Headerana- 
lyse. Der Header ist der Vorspann bei normalen Files. 
s gibt auch Files ohne Header, deswegen der Hin- 
weis „normal“. Dieser Vorspann enthält Angaben über 
den Programmnamen, die Startadresse, die Länge usw. 
Bei ASCII-Files fehlt im Header die Information der 
Länge, deshalb kann diese durch HEADANA auch 
nicht korrekt ausgegeben werden. Wer käufliche Dis- 
ketten-Software damit analysiert, wird bei manchen 
Programm-Namen verwundert feststellen, daß diese 
im Header anders lauten als im Directory-Eintrag. 
Diese Methode wird ggf. eingesetzt, um Software zu 
schützen. Das Programm Headana zeigt die Filena- 
men (falls keine Steuerzeichen enthalten sind) kor- 
rekt. Das heißt, wenn durch Manipulation der Direc- 
tory-Namenseintrag nachträglich geändert wurde; der 
Name im Fileheader bleibt der alte und wird von 
Headana in der alten Version ausgegeben. 
Headana arbeitet sowohl mit Kassette als auch mit 
Diskette. Von Besitzern eines CPC 464 ohne Disket- 
tenstation müssen die RSX-Befehle DISC und 
TAPE entfernt werden. Besitzer von Vortex-Statio- 
nen müssen TAPE.IN in CAS.in ändern. 
Bei Vortex-Speichererweiterungen darf BOS nicht ak- 
tiv sein. 
Sollen Diskettenfiles analysiert werden, dann kann 
mittels der Cursorsteuertasten auf den Filenamen 
positioniert und dieser dann mittels COPY-Taste 
übernommen werden. Bei der Analyse von Kassetten- 
files kann das nächste auf der Kassette befindliche 
File dadurch gewählt werden, daß bei der Frage nach 
dem Filenamen die ENTER-Taste gedrückt wird. 
Bei Maschinenprogrammen werden Sie evtl. feststel- 
len, daß die Ladeadresse nicht mit der Adresse über- 
einstimmt, an welche später geladen wird. Im zugehö- 
rigen Basicprogramm steht hinter dem Ladebefehl 
dann auch die Ladeadresse. Der Grund ist, daß die- 
ses Binärfile evtl. von einem Assembler geschrieben 
wurde und deshalb die Adresse des Schreibpuffers im 
Header steht. Eine andere Möglichkeit, das Binärfile 
einmal in einen anderen Speicherbereich einzulesen _ 
und dann wieder abzuspeichern, führt ebenfalls zu die- 
sem Effekt. Weiter gibt es zur Bedienung nichts zu 
sagen. 
Damit wir aber nicht wieder Hunderte von Anrufen 
bekommen, welches Zeichen denn z.B. in Zeile 590 
steht, hier der Hinweis, es sollte eigentlich das kauf-, 
männische Und-Zeichen (&) sein. Unser Drucker wei- 
gert sich bisher aber standhaft, in dem von uns — für 
Listings — gewählten Druckmode dieses Zeichen kor- 
rekt auszugeben (irgendwann bringen wir ihm das 
auch noch bei!). R ö 
Dieses Zeichen tritt beispielsweise auch in den Zei- 
len 600, 660 und 670 auf. (LM) 


42 


LISTING 


100 "Hruetreec 

110 ’* HEADANA # 

120 ’*= (C) 1987 BY LOTHAR MIEDEL *# 

130 HRREECHEHEEHEHEHHIHEHEHEHENEN 

140 

150 ” Besitzer eines CPC464 ohne Di 

2 Salenes elle Sn tin muessen die R5X-Befe 
[:} 

160 DISC und TAP 

E.IN entfernen! 

20:7 


180 IF mpgflag <1 THEN GOSUB 660:mp 

eflag=-1 

190 MODE 2:WINDOW #0,1,79,1,23:WIND 
OW #1,80,80,4,19:WINDOW #2,1,79,23, 

25 

200 t1$="Der File-Name kann mit dem 
COPY-Cursor uebernommen werden!" 

210 t2$="Durch <ENTER> wird das nae 

.chste File analysiert!” 

220 t3$="Moment bitte !":t4$="Diske 
tte (D) oder Kassette (K) ?":i$=CHRA 

$( 24) 

230 PRINT #1,i$”"HEADER-ANALYSE"i$:P 
AINT #2,t4$ = 

240 a$=LOWER$( INKEY$) :IF a$="" THEN 
240 ELSE IF a$ <>"d” AND a$ <> "k" 
THEN 240 

250 IF a$="d”" THEN CLS #2:PRINT #2, 
t3$ 

260 IF a$="kK" THEN | TAPE.IN:kass=1: 
GOTO 280 : 

270 IDISC:CAT:CLS #2:kass=O 

280 PRINT #2,1$”"Bitte den Filenamen 
eingeben !I"i$:PRINT #2:LOCATE #0,1 
2 

’ 

290 IF kass=O THEN PRINT #2,t1$ ELS 

E PRINT #2,t2$ 

300 PRINT STRING$( 20,” "):LOCATE #0 

‚1,2:INPUT x$:CLS #0:CL5S #2 

310 IF kass=-O THEN PRINT #2,t3$ 

320 

330 ’Werte des Filenamens an das Ma 

schinenprogramm uebergeben 

340 POKE &A007,PEEK(@x$) ’ 

des eingegebenen Filenamens 

350 POKE &A009,PEEK(@x$+1) :POKE E&AO 

UA,PEEK(@x$+2) ° Adresse des Namens 

360 CALL EA000’ Maschinenpro 

gramm-Aufruf 

370 

380 ’basad ist die Basisadresse des 
File-Etiketts 

390 basad=PEEK( EAD20) +PEEK( EAD21) #2 


Laenge 


56’ Basisadresse des Buffers 
400 ° 

a Analyse----- 

420 ° 


430 CLS #0:FOR I - 1 TO 7:PRINT:NEX 
T I:PRINT"ANALYSE-ERGEBNIS: ":PRINT 


440 PRINT"Filename s "z1IFrcRko 
ss THEN x=basad ELSE x=-basad+1 
450 n=PEEK( x) :IF n=-O THEN 470 
460 PRINT CHR$(n); :x=x+1:G0T0 450 
470 
480 fFt=PEEK( 6A022) :PRINT:PRINT"File 
-Typ - “"BINSLFLE,8);" - "; 
490 IF ft=-O0 THEN PRINT"BASIC":GOTO 
550 
500 IF ft=1 THEN PRINT"PROTECTED BA 
SIC”:GOTO 550 
510 IF ft=2 THEN PRINT"BINAERFILE": 
GOTO 550 
520 IF ft=-22 THEN PRINT"ASCII”:GOTO 
560 
530 
540 
550 la=PEEK( EAD25) +256*PEEK( EAO26) ” 
i Ladeadresse 
560 Fl=PEFK( EAU23) +256*#PEEK( EAO24) ” 
Filelaenge 
ba=f1/2°11:IF INT(ba) #2048<ba T 
ba=-INT(ba+1)” Blockanzahl 


PRINT"FILETYP UNBEKANNT 


570 
HEN 


580 sa=-PEEK( basad+26) +256*#PEEK( basa 
d+27) Startadress 
e 

590 PRINT"Ladeadresse : E"HEX$ÜI 
a,4) :PRINT"File-Laenge : E"”HEX$( 
f1,4) 

600 PRINT"Blockanzahl G"HEX$Cb 
a,4) :PRINT"Startadresse : E"HEXS 
sa,4) 

610 CLS #2:PRINT #2,"Weitere Analys 
en (j/n) ? 


620 a$=LOWER$( INKEY$) :IF a$="" GOTO 
620 ELSE IF a$="n" THEN 640 ELSE. 1 
90 

630 

640 MODE 2:CALL EBB9C:PRINT"Endlich 
habe ich meine Ruhe I”":CGALL 6BB9C: 
|DISC:END 

650 ° 

660 MEMORY E97FF ’Maschinenprogramm 
in den Speicher schreiben 

670 FOR a=&EA000 TOD EAOD00+31 

680 READ d$:d=VAL( ”"&E”"+d$) :POKE a,d: 

NEXT 


690 DATA CD,7A,BC,11,00,98,06,00,21 
‚00,00,C0C0,77,BC,22,20 

700 DATA a0,32,22,30,ed,43,23,a0,ed 
‚53,25,a0,cd,7d,bc,c9 

710 RETURN 
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_LISTING 


BREAKER 


Gute Ideen kommen immer wieder. Die fast schon 
vergessenen Wallbreaker-Spiele erleben zur Zeit eine 
Renaissance. Aber nicht nur kommerzielle Software 
— etwa Arkanoid — findet das rege Interesse der 
Freaks, sondern es wird auch wieder an diesen Spie- 
len programmiert. Zu erklären ist dies wohl nur mit 
den zahlreichen ‚‚Neueinsteigern“ beim CPC. Die 
Bezeichnung „Alter Hut“ hat für sie keine Gültig- 
keit, man war ja gar nicht von Anfang an dabei. 
Die Spiele von Breaker ist so alt, daß sie wohl 
trotzdem jeder kennt, der einen Computer zu Hause 
hat. Aber immer wieder ist sie faszinierend. Auch 
unser Autor Markus Schöngarth wurde angeregt, die- 
ses Spiel einmal selbst zu programmieren. Und hier 
ist sein Listing, das auch das Einstellen der Spielge- 
schwindigkeit zuläßt. 
Für die, die das Spiel noch nicht kennen (höchst 
unwahrscheinlich), hier eine kurze Anleitung: Ziel 
des Spiels ist es, eine Mauer mit einem immer wie- 
der zurückspringenden Schläger abzuräumen. Am 
unteren Bildschirmrand befindet sich ein Schläger, 
mit dem Sie den Ball zurückprallen lassen können. 
Dieser Schläger wird mit dem Joystick gesteuert. 
Will jemand aber mit den Cursortasten spielen, so 
muß man in Zeile 1320 den Wert 75 in I und den 
Wert 74 in 8 umwandeln. 

(JE) 


.. 


TE 


LISTING 


(RRRERUIEHIER TEE SEE SEES SEHE SE SE SE SEE IE SEE CE 


1 

2 +» BREAKER * 
3 # VON # 
a % MARKUS SCHOENGARTH * 
5 + FUER # 
6 '* SCHNEIDER AKTIV * 
FE CPC 464/664/6128 je* 
8 PREUEHEERUHEHEREHHENHHHE EHER 
9 [4 

10 

20 


30 ON ERROR GOTO 2030 

40 DEFINT a-z 

50 * Zeichen definieren 

.60 SYMBOL AFTER 32 

70 SYMBOL 200,0, 126, 126, 126, 126, 126 
‚126 

80 SYMBOL 201,255,128, 128, 128,128, 1 
28, 128,255 

90 SYMBOL 45,255,255,255,255,255,25 
5,255,255 

100 SYMBOL 168,1,3,7,15,15,7,3,1 
110 SYMBOL 169, 128, 192,224,240,240, 
224,192,128B 

120 SYMBOL 202,0,0,16,56, 124, 124,56 
‚16 

130 SYMBOL 203,0,0,8,4,2,2,4,8 

140 ° Titelbild 

150 level=1:CLEAR:DEFINT a-z 

160 DIM feld( 20,25) 

170 GOSUB 1790 

180 MODE 1:BORDER 0:INK 0,4:INK 1,2 
0:INK 2,6:INK 3,18 

190 PEN 1:LOCATE 1,1:PRINT STRING$( 
40,207) ; :LOCATE 1,25:PRINT STRING$( 
40,207); 

200 FOR i=2 TO 24:L0CATE 1,i:PRAINT 
CHRA$( 207) ; :LOCATE 40,i:PRINT CHR$(C2 
07) ; :NEXT 

210 FOR i=3 TO 24:L0CATE 2,i:PRINT 
CHA$( 143) ; :LOCATE 39,i:PRINT CHR$( 1 
43) ; :NEXT 

220 LOCATE 2,2:PRINT STRAING$( 38, 143 
) :LOCATE 2,24:PRINT STRING$( 38, 143) 


230 PEN 3:FOR i=1 TO 7:LOCATE 4,i+3 
:PRINT nam$( i) :NEXT 

240 PEN 2:LOCATE 12,13:PRINT "Gesch 
rieben von "” 

250 LOCATE 11,15:PRINT "Markus 
oengarth"” 

260 PEN 1:LOCATE 7,18:PRINT "Drueseck 
e eine Taste zum Start" 

270 WHILE INKEY$="":WEND 

280 PEN 3:LOCATE 5,21:PRINT "Welche 
Geschwindigkeit ( 1”";CHA$( 152) ; :INP 
UT "6)";ges 

290 IF ges<1 OR ges>6 THEN PRINT CH 

RA$( 7) :GOTO 280 

300 PEN 3:LOCATE 3,21:PRINT "Bei we 


Sch 


iIchem Bild willst Du anfangen" :LOCA 
TE 19,23:INPUT level 

310 IF level<1 OR level>9 THEN 300 
320 ba=5 

330 MODE 0:INK 0,0:INK 1,24:INK 2,1 
8:INK 3,6:INK 4,1:INK 5, 11:INK 6,7: 


INK 7,24:INK 8,18:INK 9,8:INK 11,6: 
INK 14,1 

340 CLS 

350 GOSUB 1760 

360 PEN 9:LOCATE 1,1:PRINT CHA$(214 


) STRING$( 18,245) CHR$( 215) 

370 FOR i=2 TO 23:LOCATE 1,i:PRINT 
CHA$( 246) :LOCATE 20,i:PRINT CHRA$( 24 
7); :NEXT 

380 PEN 1:PAPER 0 

390 PRINT CHR$( 22) CHR$C 1) 

400 ON level GOTO 450,520,620,710,8 
10,910, 1000, 1090, 1170 

AID 7 KERSEEEREEEEEHEEHEHUHEEEHERR 
MB SEVEL 1 + 
A430 7 FRUHEESEECHEHREECHEHRUHHEHTEHTEN 
440 

450 FOR i=7 TO 13:FOR j=8 TO 14 

460 LOCATE j,i 

470 PRINT CHR$( 15) CHR$( i-6) CHR$( 200 
) CHA$( 15) CHR$( 14) CHR$( 8) CHR$( 201) 
480 feld( j,i)=1 

490 NEXT:NEXT 

500 abr=49 

510 G0TO 1270 

S2PO 7 BEUTH SE HI 
530 ” *# LEVEL 2 * 
SAD 7 EREEEREHREHEEREEEHUHHEHIENEENEIT 
550 

560 FOR i=7 TO 13 STEP 1:FOR: j=-i-3 
TO ( 13-1) +10 

570 LOCATE 3,i:PRINT CHR$( 15) CHRA$(i 
-6) CHR$( 200) CHRA$( 15) CHR$( 14) CHR$( 8) 
CHR$( 201) 

580 feld( j,i)=1 

NEXT:NEXT 

abr=49 

GOTO 1270 

620 SCHERER HEHE 
.% LEVEL 3 * 
*r EEE UHREN 
650 ” 

660 FOR i-5 TO 10:FOR j=-3 TO 8:LOCA 
TE 3,i:PRINT CHRA$( 15) CHR$( i) CHA$( 20 
2) CHA$( 15) CHR$( 14) CHA$( 8) CHR$( 203) : 
feld( J,i)=1 

670 LOCATE 3j+10,i:PRINT CHA$( 15) CHA 
$( i) CHR$( 202) CHA$( 15) CHA$( 14) CHR$( 8 
)CHA$( 203) :Feld( j+10,i)=1 


680 NEXT:NEXT 

690 abr=72 

700 GOTO 1270 

710 7 HRRRHEHRIHHISTSESESESESESESESESESESE HEN 
NEUE ESEZV#ESE 4 
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» 2» 


730:.* 
740 
750 FOR i=4 TO 7:FOR j=i-2 TO (13-i 
)+10 

760 LOCATE 3j,i:PRINT CHRA$( 15) CHR$Ci 
J) CHR$( 200) CHR$( 15) CHR$( 14) CHR$( 8) CH 
A$C201) :Feld( 3,1) =1:NEXT:NEXT 

770 FOR i=8 TO 12:FOR j=(12-i)+3 TO 
i+5 

780 LOCATE 3,i:PRINT CHA$( 15) CHRA$Ci 
) CHR$( 200) CHA$C 15) CHA$E 14) CHR$( 8) CH 

R$( 201) :Feld( J,i)=1:NEXT:NEXT 


EHRT HEISE HIESS SE HIESS EI IEHE 


790 abr=115 

800 GOTO 1270 

BIO 7 SHarsrsrststseststslt tl ll 
820 ’ * LE VER 5 * 
830 7 Maratstarstststst letters 
840 - 
850 


FOR i=5 TO 10:FOR j=2 TO i-1 
860 LOCATE 3j,i:PRINT CHR$( 15) CHR$(i 
) CHA$( 200) CHR$( 15) CHR$( 14) CHA$( 8) CH 
A$( 201) :Feld( j,i)=1 

870 LOCATE ( j+20)-i,i:PRAINT CHRA$( 15 
) CHR$( i) CHR$( 200) CHR$( 15) CHR$( 14) CH 
A$CB)CHRA$( 201) :Feld( ( j+20)-i,i)=1 


880 NEXT :NEXT 

890 abr=66 

900 GOTO 1270 

9g1I0 ' RBB EIERN 

920 ’ * LEVEL 6 * 

930 7 arststststststtststststttte elle 

940 

950 FOR i=4 TO 11 STEP 2:FOR 3-5 TO 
15 

960 LOCATE 3j,i:PRINT CHA$( 15) CHR$Ci 


) CHA$( 200) CHR$( 15) CHR$( 14) CHR$( 8) CH 
A$C201) :feld( j,i)=1 

970 NEXT :NEXT 

980 abr=44 

990 GOTO 1270 

1000 7 HH HHHHHRSHHHIRHIHHHIH HR HE 
1010 * * EHE-VZETE 7 * 
1020 7 MHRRRRRRRSHRSHHHHRRRHHRRIIENN 
1030 FOR i=3 TO 8:FOR j=(12-i)+3 TO 
i+5 

1040 LOCATE 3j,i:PRINT CHRA$( 15) CHR$( 

i) CHRA$( 200) CHR$( 15) CHA$( 14) CHR$( 8) C 

HR$C201) :Feld( j,i)=1:NEXT: NEXT 

1050 FOR i=9 TO 13:FOR j=-i-3 TO (13 

-i) +10 

1060 LOCATE j,i:PRINT CHR$( 15) CHA$( 

Äi)CHRA$L 200) CHR$C 15) CHA$( 14) CHA$C BIC 

HR$C201) :Feld( j,i)=1:NEXT:NEXT 

1070 abr=41 

1080 GOTO 1270 

1090 7 SEHE EEE EUCH 

1100 ” * LEVEL 8 * 
1110 * KERN 
1120 FOR a=3 TO 11:FOR b=a TO (B8-a) 
+B 


1130 LOCATE b,a:PRINT CHRA$( 15) CHR$( 
b) CHA$( 200) CHR$L( 15) CHA$( 14) CHA$( 8) C 
HR$(201) :feld(b,a)=1:LOCATE b+6,a:P 
RINT CHR$( 15) CHR$( b) CHR$( 20 

0) CHR$( 15) CHR$( 14) CHA$( 8) CHR$( 201) : 
feld(b+6,a)>=1 


1140 NEXT:NEXT 
‚1150 abr=63 

1160 GOTO 1270 

1170 7 RRRRRRRRSHRHRHRISIHHIIHSER EISEN 
1180 ” * EHE VE L 9 #* 
1190 ° RR 
1200 FOR a=3 TO 7:FOR b=a TO (5-a) + 
9 

1210 LOCATE b,a:PRINT CHRA$( 15) CHR$( 


a) CHA$( 200) CHR$C 15) CHR$( 14) CHR$( 8) C 

HR$( 201) :Feld(b,a)=1:LOCATE b+6,a:P 

RINT CHRA$( 15) CHR$( a) CHA$( 20 

DO) CHA$( 15) CHR$( 14) CHR$( 8) CHA$( 201) : 

feld(b+6,a)=1 

1220 NEXT:NEXT 

1230 FOR a=8 TO 12:FOR b=a-5 TO (10 

-a) +9 

1240 LOCATE b,a:PRINT CHR$( 15) CHR$( 

b) CHR$( 200) CHR$( 15) CHA$( 14) CHA$( 8) C 

HR$( 201) :feld(b,a)=1:LOCATE b+6,a:P 

RINT CHA$( 15) CHR$C b) CHR$( 20 

D) CHR$( 15) CHRA$( 14) CHA$( 8) CHR$( 201) : 

feld(b+6,a)=1 

1250 NEXT :NEXT 

1260 abr=92 

1270 PRINT CHR$( 22) CHRA$(0O) :PEN 1 
1280 EVERY 10-ges,O GOSUB 1360 

1290 

1300 PRINT CHRA$( 22) CHA$( 0); :PEN 1 
1310 LOCATE pox,24:PEN 1:PRINT CHR$ 

( 32) ; CHR$( 168) CHR$( 143) CHA$( 143) CHA 
$( 169) CHR$( 32) 

1320 IF INKEY(75)=0 AND pox<15 THEN 
pox=pox+1 ELSE IF INKEY(74)=0O AND 
pox>1 THEN pox=pox-1 

1330 IF gy=1 THEN gy=0:G0T0 1540 
1340 IF feld=-abr THEN 1890 

1350 GOTO 1310 

1360 7 HRHRBRHRISIHIHIHIHIIHIIHI IS HEISE 
13970:27>8 Ball bewegen %* 
1380 7 HHRHHHRHHRSHREIRISRIIHH SHE 
1390 

1400 LOCATE bpox,bpoy:PRINT CHR$( 32 
) 

1410 bpox=bpox+twx:bpoy=-bpoy+twy 

1420 PEN 11:L0OCATE bpox,bpoy:PRINT 
CHR$( 231); 

1430 IF feld(bpox,bpoy)=1 THEN feld 
(bpox,bpoy) =0:50UND 1,bpoy*2+150, 10 
‚15:wy=-wy:feld=feld+1 

1440 IF bpoy=2 THEN SOUND 2,bpoy*2+ 
550,10, 15:wy=-wy ELSE IF bpoy>=23 T 
HEN GOSUB 1470 

1450 IF bpox=2 OR bpox=19 THEN 50UN 
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ANZEIGENSERVICE 


Die große Börse für jeden Zweck in SCHNEIDER AKTIV. Kostenlos für Privat-Inserenten. Spottbillig für gewerbliche Anbieter. Ein- 
fach Coupon ausschneiden, fotokopieren 0.ä., ausfüllen und ab die Post — Freimachen nicht vergessen! — Unsere Adresse steht 
auf dem Coupon, ebenso die Preise für gewerbliche Anbieter! Achtung! Wir weisen ausdrücklich darauf hin, daß wir offensicht- 
lich gewerbliche Anzeigen nicht kostenlos veröffentlichen und uns jedweden Abdruck kostenloser Anzeigen vorbehalten müssen, 
insbesondere, wenn deren Inhalt gegen geltendes Recht verstößt. Private Chiffreanzeigen werden nicht aufgenommen. Für Pri- 
vatanbieter: etwa bis zu acht Zeilen a 28 Anschläge. Für gewerbliche Anbieter: 5 DM p.mm. bei beliebiger Größe. 


FREKSPRFRBZTZDIERHIBHFRBeB 
ZELEZZIRRBEBRERBIBESEREBERET EN 


SCHNEIDER AKTIV Name 
ANZEIGENABTLG Vorname 
POSTFACH 1161 Straße /Hausnr. 
D-8044 UNTERSCHLEISSHEIM _pLz/0rt 


—  —e > 


DAS SONDERANGEBOT: 
PRIVATE KLEINANZEIGEN 
SIND KOSTENLOS 


Das bietet Ihnen ab sofort SCHNEIDER AKTIV: KLEINAN- 
ZEIGEN SIND KOSTENLOS FÜR PRIVATANBIETER! Su- 
chen Sie etwas, haben Sie etwas zu verkaufen, zu tau- 
schen, wollen Sie einen Club gründen? Coupon ausfüllen, 
auf Postkarte kleben oder in Briefumschlag stecken und 
abschicken. So einfach geht das. Wollen Sie das Heft 
nicht zerschneiden, können Sie den Coupon auch fotoko- 
pieren. Oder einfach den Anzeigentext uns so schicken, 
auf Postkarte oder im Brief. Aber bitte mit Druckbuchsta- 
ben oder in Schreibmaschinenschrift! 

Und: Einschließlich Ihrer Adresse und /oder Telefonnum- 
mer sollten acht Zeilen a 28 Anschläge nicht überschrit- 
ten werden. 

ACHTUNG: WICHTIGER HINWEIS! 

Wir veröffentlichen nur Kleinanzeigen privater Inserenten 


kostenlos, gewerbliche Anzeigen kosten pro Millimeter 
DM 5,00 plus Mehrwertsteuer! 

Wir versenden für Privat-Inserenten keine Beleg- 
Exemplare! 

DIE INSERTION IST NICHT VOM HEFTKAUF ABHÄNGIG! 
Chiffre-Anzeigen sind nicht gestattet! Wir behalten uns 
vor, Anzeigen, die gegen rechtliche, sittliche oder sonsti- 
ge Gebote verstoßen, abzulehnen! 

Anzeigenabdruck in der Reihenfolge ihres Eingangs, kein 
Rechtsanspruch auf den Abdruck in der nächsten Ausga- 
be! 

Wir behalten uns vor, Anzeigen, die nicht zum Themen- 
kreis des Heftes — Computer — gehören, nur insoweit 
zu berücksichtigen, wie es der Umfang des kostenlosen 
Anzeigenteils zuläßt. 
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NUTZEN SIE UNSEREN BEQUEMEN POSTSERVICE 


KOMMT _ 
REGELMÄSSIG 
ZU IHNEN 


INS HAUS 


Das unabhängige Magazin 
für Schneider-Computer 


Finden Sie Ihre SCHNEIDER AKTIV nicht am Kiosk? 
Weil sie schon ausverkauft ist? Oder ‚‚Ihr‘‘ Kiosk 
nicht beliefert wurde? Kein Problem! Für ganze 60 / 
DM liefern wir Ihnen per Post zwölf Hefte ins Haus \ 
(Ausland 80 DM). Einfach den Bestellschein. aus- 
schneiden — fotokopieren oder abschreiben, in ei- 
nen Briefumschlag und ab per Post (Achtung: Porto 
nicht vergessen). SCHNEIDER AKTIV kommt dann 
pünktlich ins Haus. 


Ten nn nenne nn a ET a > 
ABO-SERVICE-KARTE 


GARANTIE! 

Sie können diesen Abo-Auftrag bin- 
nen einer Woche nach Eingang der 
Abo-Bestätigung durch den Verlag 
widerrufen — Postkarte genügt. An- 
sonsten läuft dieser Auftrag jeweils 
für zwölf Ausgaben, wenn ihm nicht 
vier Wochen vor Ablauf widerspro- 
chen wird, weiter. 


Ich nehme zur Kenntnis, Ja, ich möchte von Ihrem Angebot Ausgaben an untenstehende An- 
daß die Belieferung Gebrauch machen. schrift. Wenn ich nicht vier Wochen 
erst beginnt, wenn die Bitte senden Sie mir bis auf Widerruf vor Ablauf kündige, läuft diese 
Abo-Gebühr dem Verlag ab sofort jeweils die nächsten zwölf Abmachung automatisch weiter. 
zugegangen ist! Name 

Vorname 

Straße /Hausnr. 

PLZ/Ort 

Ich bezahle: 


U] per beiliegendem Verrechnungsscheck 

U] gegen Rechnung 

U] bargeldios per Bankeinzug von meinem Konto 
bei (Bank) und Ort 


Kontonummer 
Bankleitzahl 
SCHNEIDER AKTIV (steht auf jedem Kontoauszug) 
ABO-SERVICE 8/87 Unterschrift 
SSIEACH 1161 Von meinem Widerspruchsrecht habe ich Kenntnis genommen. 
UNTERSCHLEISSHEIM RBRERERENR = 7 "no ie Wohiesie> mn en eeenrrle 
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PROGRAMMSERVICE 


Hiermit bestelle ich in Kenntnis Ihrer Verkaufsbedingun- 
gen die Listings dieses Heftes auf 


U] Kassette (20 DM) [Diskette (30 DM) 
OD Das Superangebot auf Kassette zuDM 30 Dı zu DM 40 


Ich zahle: (Zutreffendes bite ankreuzen!) 
per beigefügten Scheck [] Schein U] 


Gegen Bankabbuchung am Versandtag U) 


Meine Bank (mit Ortsname) 

Meine Kontonummer 

Meine Bankleitzahl (steht auf jedem Bankauszug) 

Vorname Nachname 

Str./Nr. PLZ/Ort 8/87 


Verkaufsbedingungen: Lieferung nur gegen Vorkasse oder Bankabbuchung. Keine Nachnahme. 
Umtausch bei Nichtfunktionieren. (Ausgenommen Super-Angebot.) 


Unterschrift 
Bitte ausschneiden und einsenden an 


SCHNEIDER AKTIV 
KASSETTENSERVICE 8/87 
POSTFACH 1161 

D-8044 UNTERSCHLEISSHEIM 


Te zT 
LESER WERBEN LESER 


GEWINNEN SIE EINE COMPUTER- 
UHR! Und zusätzlich eventuell 
noch ein großes Computer-Buch. 
Oder ein Paket Disketten. ODER 
AUCH EINEN COMPUTER — 
ODER EINE DISKETTENSTATION! 
Wie? Sie werben einen Abonnen- 
ten. Dann haben Sie auf jeden Fall 
schon die Computer-Uhr gewon- 
nen. Zusätzlich verlosen wir unter 
allen, die mitmachen, jeden Mo- 
nat vier weitere wertvolle Preise. 
Und alle sechs Monate gibt es ei- 
nen Hauptpreis unter allen Abo- 
Werbern zu gewinnen. Also: Mit- 
machen. Mitgewinnen. 


Ja, ich mache mit beim Abo- 
Wettbewerb. Ich habe 


Herrn /Frau 
Straße /Hausnr. 


PLZ/Ort 


als neuen Abonnenten für SCHNEI- 
DER AKTIV geworben. 


Der neue Abonnent war bisher 
noch nicht Bezieher dieser Zeit- 
schrift. 

Als Prämie erhalte ich nach Ein- 
gang des Abo-Entgeltes auf jeden 
Fall eine Computer-Uhr, wie abge- 
bildet, und nehme zusätzlich noch 
an der Verlosung des Monats so- 
wie der halbjährlichen Hauptprei- 
se teil. Mir ist bekannt, daß der 
Rechtsweg ausgeschlossen ist. 
Meinen Preis senden Sie an 


Name 

Straße /Hsnr. 

PLZ/Ort 

(Bitte ausschneiden und zusam- 


men mit der Abo-Bestellkarte links 
einsenden!) 8/87 


DM 14,80 
ÖS 124 
SFR 14,80 


rfekter 


ndungen 
u 5 _ 

thte _ 3. 
SRUÄÄÄÄQU, 38 


TRRÄÄII 


IR 


III So 


pannung 


TÜR 


LISTING 


D 2,bpoy*2+1050, 10, 15:SOUND 1,bpoy* 
2+550,20,15:wx=-wx 

1460 LOCATE pox,24:RETURN 

1470 7 MRS HRHHRHSHHSHRSHRIEIHI TIER IN 

1480 ’ # Ball getroffen ? * 

1490 °  ERRHRHHHHIHRIHHIIHIHIEIHIFR HEATH 

1500 

1510 IF pox+1<=bpox AND pox+4>=bpox 
THEN wy=-wy:FOR i=15 TO 10 STEP -1 


:SOUND 3,500,5,i:NEXT ELSE gy=1:RET 
URN 


1520 IF INTERND*#2)=1 THEN LOCATE bp 


ox,bpoy:PRINT CHR$( 32) ; :bpoy=22 
1530 RETURN 

1540 7  HRRHHHHHHRRRSIESHIESESE SS SE SEHE RT HE NE 
1550 ’ # Naechster Ball * 
1560 7 RHRHRHHISHHIHHISHISIRIEIRIRRESERE HEHE 
197022 

1580 i=REMAIN( OD) 

1590 ba=ba-1 

1600 IF ba=0 THEN 1640 

1610 LOCATE bpox,bpoy:PRINT CHA$( 32 
); 

1620 Bi i=-900 TO 1000 STEP 10:S50UN 
D 1,1,5, 15:NEXT 


1630. LOCATE pox,24:PRINT STRING$(S, 
32) ;:G605UB 1760:G0TO 1280 

1640 °. IEHaHsrareateshltatltse steh ltst gestaltet 
1650 ’ * GAME OVER #* 
1660 ° HRS SEIEN 
1670 ° 

1680 punkte=-punkte+feld 

1690 LOCATE 6,8:PRINT "GAME DOVER" 
1700 FOR i=15 TO 1 STEP -1:FOR n=12 
7 TO 450 STEP 12:S50UND 1,n,1,i:NEXT 
:NEXT 

1710 LOCATE 3,10:PRINT 
zahl" 

1720 LOCATE 9, 12:PRINT 
1730 LOCATE 2,14:PRINT 
ECKEN <" 

1740 WHILE INKEY$<>" " 
1750 GOTO 150. 

1760 ” 

1770 gy=-O:wy=1:wx=1:bpoy=14:bpox=4: 
pox=6 


"Deine Punkt 


punkte 
"> SPACE DRU 


:WEND 


RETURN 


——— 0... 


1860 DATA --- - - 


1870 AESTORE 1800:FOR i=1 TO 7:READ 
nam$( i) :NEXT 


1880 RETURN 

1890 7 WRRRBRHRHHRRRHHHHIHRI IE 
1900 ’ *# Naechster Level * 
1910 7 RR HRS 
1920 

1930 i=REMAIN( 0) 

1940 FOR i=10 TO 15:FOR j=100 TO 60 


0 STEP 50:S0UND 1,3,2,i:INK 0,i,i-9 
:BORDER i-9,1:50UND 2, j-100,2,i:NEX 

T:NEXT 

1950 FOR i=15 TO 10 STEP -1:FOR j=1 

300 TO 1600 STEP 25:SOUND 1,3,2,15, 
‚,30:SOUND 2, j-100,2,i,,,i:NEXT:NEX 

T 

1960 LOCATE 3,8:PRINT 

EL”; level+1 

1970 INK 0,0:BORDER 0:LOCATE 2,12:P 

RINT "> SPACE DRUECKEN <" 

1980 WHILE INKEY$<>" ":WEND 

1990 LOCATE 2,12:PRINT STRING$( 18,3 

2) ;:LOCATE 1,24:PRINT STRING$( 18,32 

J);:LOCATE bpox,bpoy:PRINT CHRA$( 32): 

LOCATE 2,8:PRINT STRING$( 18 

‚3e); 

2000 punkte=punkte+feld:feld=0:605U 

B 1760 

2010 level=level+1:IF level=-10 THEN 
level=1 

2020 GOTO 380 

2030 RESUME NEXT 


"ES FOLGT LEV 
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| aktiv) 


VOKABELTRAINER 


Unser Autor Peter Oster hat ein Programm geschrie- 
ben, das sicher für alle, die Sprachen lernen (müs- 
sen), interessant ist. 

Das Programm ist für Diskettenbetrieb ausgelegt. 
Falls Sie dies wünschen, müssen Sie es für den Tape- 
Betrieb entsprechend anpassen. 


Voll menügesteuert 


Dieses Programm ist voll menügesteuert und bietet 
den besonderen Vorzug, daß Sie beliebig viele Spra- 
chen damit lernen können. Und je Fremdsprache 
können Sie bis zu eintausend Vokabeln eingeben. 
Das dürfte ja für den Anfang erst einmal reichen. 
Im Menü haben Sie folgende Optionen: 


1. Vokabeln eingeben 
Hier wird dem Benutzer die Möglichkeit gegeben, 
dem CPC Vokabeln beizubringen. 


2. Vokabeln ändern 

Falls Sie unter Punkt 1 ein Wort falsch eingegeben 
haben, besteht die Möglichkeit, es zu ändern oder so- 
gar zu löschen. 


3. Vokabeln abfragen 

Hier wird geprüft, ob der ‚Schüler‘ seine Lektion gut 
gelernt hat oder ob noch Lücken vorhanden sind. 
Achtung: Gewußte Wörter werden aus dem Speicher 
gelöscht. Also zuerst die unter Punkt 1 eingegebenen 
Vokabeln sichern, dann abfragen! 


4. Vokabeln sichern 

Nach der Eingabe der Vokabeln werden dann unter 
diesem Menüpunkt die Daten abgespeichert. Wenn 
Sie verschiedene Sprachen lernen wollen, speichern 
Sie die Daten zum Beispiel ab mit Engll, Engl2, 
Franzl, Franz2, Spanl, Span2, usw. 


5. Vokabeln laden 


Die gespeicherten Vokabeln werden in den CPC 
eingelesen. 


6. Verschiedenes 
Hier kommen Sie in ein Untermenü. 


6.1 Vokabeln ansehen: 
Die Vokabeln, die der Computer im Bauch hat, wer- 
den hier auf den Bildschirm geholt. 


6.2 Vokabeln drucken: 
Alle Vokabeln werden ausgedruckt 


6.3 Katalog 
Der Disketteninhalt wird angezeigt. 


6.4 Datei löschen 
Eine Datei kann gelöscht werden. 


6.5 Datei umbenennen 
Eine beliebige Datei kann umbenannt werden. 


6.6 Andere Sprache wählen: 
Die unter Menüpunkt 1 gewählte Sprache kann ver- 
ändert werden. 


6.7 Hauptmenü 

Rückkehr ins Hauptmenü 

Noch ein Hinweis: Das Programm definiert einige 
Tasten um: 

Klammeraffe + CTRL = Klammeraffe 
Klammeraffe + Shift = ! 

Klammeraffe allein = ß 

Eckige Klammer aufallein=& _ 

Eckige Klammer auf mit Shift = Ä 

Eckige Klammer zu mit Shift = Ö 

Ecke Klammer zu allein = ö 

Backslash allein = ü 

Backslash mit Shift = Ü 

Außerdem ist noch ein französischer Zeichensatz 
vorhanden. Dieser befindet sich auf dem Ziffernblock. 
Bitte ausprobieren! (JE) 
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LISTING 


I0O FT ERUREUERUEEUEIEESEEIESESEEIEUEIE SEE SESEEEE 


20 ’* BEST WORDS ( VOKABELTRAINER) * 
30 ’#* VON * 
40 ’* PETER OSTER * 
so ’* FUER #* 
60 ’* SCHNEIDER AKTIV #* 
70 '# CPC 464/664/6128 # 
BO "FREE HEHE HE HEHE EHE HEHE 
130 ° 


140 CALL &BB00 

150 KEY DEF 17,1,123,91:KEY DEF 19, 
1,124,92:KEY DEF 22,1,125,93:KEY DE 
F 26,1,126, 124,64 

160 KEY 128, +CHA$( 128) :KEY 129, +CHR 
$( 129) :KEY 130, +CHA$( 130) :KEY 131, + 
CHA$( 131) 

170 KEY 132,+CHA$( 132) :KEY 133, +CHRA 
$( 133) :KEY 134, +CHA$( 134) :KEY 135, + 
CHR$( 135) 

180 KEY 136, +CHA$( 136) :KEY 137, +CHR 
$( 137) :KEY 138, +CHR$( 138) :KEY 139, + 
CHA$( 139) :KEY 140, +CHA$( 140) 

190 SYMBOL AFTER 90 

200 SYMBOL 91,102,24,60, 102, 126, 102 
‚102,0:5YMBOL 92, 198,56, 108,198, 198 
‚108,56,0:5YMBOL 93,102,0,102,102,1 
02,102,60,0 

210 SYMBOL 123,108,0,120,12,124,204 
‚118,0:S5YMBOL 124,102,0,60, 102,102, 
102,60,0:5YMBOL 125, 102,0,102,102,1 
02,102,62,0:5YMBOL 126,60, 102, 102,1 
08, 102,102, 108,96 

220 SYMBOL 128,0,60, 102,96, 102,60,8 
‚24:5YMBOL 129, 12,24,0,102,102,102, 
62,0:5YMBOL 130,48,24,60, 102, 102,10 
2,60,0 

230 SYMBOL 131,24,102,0,56,24,24,60 
‚0O:SYMBOL 132,12,24,60, 102, 126,96,6 
0,0:5YMBOL 133,48,24,60,102,126,96, 
60,0 

240 SYMBOL 134,24, 102,60, 102, 126,96 
‚60,0:5YMBOL 135, 12,24, 120, 12,124,2 
04,118,0:5YMBOL 136,96,48,120,12,12 
4,204,118,0 

250 SYMBOL 137,24, 102,120, 12,124,20 
4,118,0:5YMBOL 138,48,24,0,102,102, 
102,62,0:5YMBOL 139,24,102,60,102, 1 
02,102,60,0:5YMBOL 140,24,102,0,102 
‚102,102,62,0 

260 SYMBOL 163,0,0,0,0,0,24,24,48 
270 CLS:RUN "BW.BAS" 


RR 


10 RER EEE TEE SEHE SE SET SEE ESS EI I IE 


20 °* BEST WORDS (HAUPTPROGRAMM) *# 
30 ’# VON * 
40 ’%* PETER OSTER * 
so ’* FUER * 
60 ’%* SCHNEIDER AKTIV * 
205° # CPC 464/664/6128 % 


BO O4O—NRRRHHRHRHHHHHHHIHHIHIHIHIHI HIHI RANGE 
130 

140 INK 0,12:INK 1,0:BORDER 12:PAPE 
A 0:PEN 1::]DISC:disc=1:G0TO 160 
160 GOSUB 1640:DIM d$( 1000) ,fs$( 100 
0) ,me$( 7) ,dn$( 100) 

170 w=1:G05UB 1830:WINDOW #0,7,62,5 
‚ai 


180 me$( 1)="Vokabeln eingeben" :PRIN 
T:PRINT:PRINT TAB( 18) me$( 1) 

190 me$( 2) ="Vokabeln {ndern”" :PRIN 
T:PRINT TAB( 18) me$( 2) 

200 me$( 3) ="Vokabeln abfragen" :PRIN 
T:PRINT TAB( 18) me$( 3) 

210 me$( 4) ="Vokabeln sichern” :PRIN 
T:PRINT TAB( 18) me$( 4) 

220 me$(5)="Vokabeln laden" :PRIN 
T:PRINT TAB( 18) me$(5) 

230 me$( 6) "Verschiedenes" :PARIN 
T:PRINT TAB( 18) me$( 6) 

240 me$( 7) ="Ende"” :PRIN 


T:PRINT TAB( 18) me$(7) 

250 LOCATE 18, 1+w#2:PRINT CHR$( 24); 
me$( w) ;CHR$( 24) 

260 IF INKEY(2)=0O THEN IF w=7 THEN 

270 ELSE LOCATE 18, 1+w#2:PRINT me$( 
w) :w=w+1:LOCATE 18, 1+w#*2:PRINT CHRA$ 
(24) ;me$( w) ;CHR$( 24) :FOR p= 

ı TO 75:NEXT 

270 IF INKEY(0)=-0O THEN IF w=1 THEN 

280 ELSE LOCATE 18, 1+w*#*2:PRINT me$( 
w) :w=w-1:LOCATE 18, 1+w#2:PARINT CHRA$ 
(24) ;me$( w) ;CHR$( 24) :FOR p= 

ı TO 75:NEXT 

280 IF INKEY(9)-O OR INKEY( 18)-0 TH 
EN 300 

290 GOTO 260 

300 CLS:0ON w GOTO 310,450,730,1170, 
1260, 1410, 1910 

310 REM ---Vokabeln eingeben--- 

320 GOSUB 1860 

330 MOVE 125,347:TAG:PRINT " Voka 
beln eingeben ";:TAGOFF:GOSUB 162 
0 

340 IF sp<>1 THEN LOCATE 2,2:PRINT” 
Sprache: "; :WINDOW#1,19,64,7,7:1INPU 
T#1,"",sp$:IF sp$="" THEN 340 ELSE 

sp=1 

350 CLS:GOSUB 2020:FOR ve=az+1 TO 1 
000 

360 PRINT ve;CHR$(8) ;CHRA$( 246) ; :INP 
UT "”",fs$(lve):IF fs$(ve)="" THEN LO 
CATE POS( #0) ,VPOS( #0)-1:G0T0 360 


LISTING 


370 IF fs$(ve)=-"1"” THEN 440 

380 WINDOW SWAP 0,1 

390 PRINT ve;CHRA$(8) ;CHRA$( 246) ; : INP 
UT "",d$(ve) :IF d$(ve)="" THEN LOCA 
TE POS( #0) ,VPOS( #0) -1:G0T0O 390 
400 IF d$(ve) =-"1" THEN 440 

410 az=ve 

420 WINDOW SWAP 0,1 

430 NEXT 

440 GOTO 170 

450 REM --- Vokabeln aendern--- 
460 wo=-0:CL5:G0O5UB 1860 

470 MOVE 125,347:TAG:PRINT "” 
abeln {ndern "=: TAGOFF 

480 IF az-DO THEN GOSUB 1970:G60T0 17 
8] 

490 IF LOWER$( sp$) -"latein"” THEN ad 
$="lateinisch”:GOTO 510 

500 ad$=LOWER$( sp$) 

510 LOCATE 2,2:PRINT "Soll ich ein 
deutsches oder ein ";CHRA$( 24) ;ad$; ” 
es";CHA$( 24) ;" Wort":LOCATE 2,3:PRI 
NT "finden ?":fi=2 

520 IF INKEY( 1)=0 THEN LOCATE 15,2: 
PRINT"deutsches":LOCATE 34,2:PRINT 
CHR$( 24) ;ad$; "es" ;CHRA$( 24) : fi=2 


Vok 


530 IF INKEY(8)=-0 THEN LOCATE 34,2: 
PRINT ad$;"”es”:LOCATE 15,2:PRINT CH 

R$( 24) ; "deutsches" ;CHA$( 24) :fi=1 
540 IF INKEY(9)=-1 AND INKEY( 18) =-1 
THEN 520 

550 GOSUB 1620:L0CATE 2,4:PAINT "” G 
ib den(die) Anfangsbuchstaben des z 
u verbessernden Wortes ein.(<EN 
TER>:Menu) -->":WINDOW #0,3 

9,64,11,11:INPUT "",an$:IF an$="" T 
HEN 170 ELSE GOSUB 1870 

560 FOR su=1 TO az 

570 CLS:IF fi=1 THEN 590 

580 IF LEFT$(fs$( su) ‚„LEN( an$) ) =an$ 
THEN 600 ELSE 650 

590 IF LEFT$Cd$[ su) ‚„LEN( an$) ) <>an$ 

THEN 650 


600 PRINT fs$( su) :PRINT d$( su) :LOCA 
TE 2,6:PRINT "Ist das Wort "”;CHR$(2 
4) ;"richtig”;CHA$(24);” oder falsch 
geschrieben ?":rf=2 

610 IF INKEY( 1)=0 THEN LOCATE 15,6: 
PRINT "richtig"”:LOCATE 28,6:PRINT C 
HR$( 24) ;"Falsch" ;CHR$( 24) :rf=1 

620 IF INKEY(8)=0O THEN LOCATE 28,6: 
PRINT"falsch”:LOCATE 15,6:PRINT CHR 
$( 24) ;"richtig" ;CHR$( 24) :rf>=2 

630 IF INKEY(9)=0 OR INKEY( 18)=DO TH 
EN wo=1:IF rf=1 THEN 680 ELSE 650 


640 GOTO 610 
650 NEXT 


660 IF wo=1 THEN CLS:LOCATE 2,2:PRI 
NT "Ich kann kein weiteres Wort fin 
den, das so beginnt.":wo=0 ELSE LOC 
ATE 2,2:PRINT "Ich habe kei 

n Wort gefunden, das so beginnt.” 
670 FOR p=1 TO 2000:NEXT:GOTO 170 


680 GOSUB 1620:L0OCATE 2,6:PRINT ” W 
ie hei’t es richtig ? (";CHR$( 24) ;” 
!";CHR$( 24) ;":Vokabel herausnehmen) 


690 LDOCATE 2,8:PRINT "-";sp$; : INPUT 
" .:",fa$:IF fa$="" THEN LOCATE LEN 

(sp$)+5,8:PRINT fs$( su) ELSE IF fa$ 
="1" THEN 720 ELSE fs$(su)= 

fa$ 

700 LOCATE 2,9:INPUT "-Deutsch :"”,d 
a$:IF da$="" THEN LOCATE 12,9:PRINT 
d$( su) :FOR p=1 TO 2000:NEXT ELSE I 
F da$="!" THEN 720 ELSE d$( 

su) =da$ 

710 GOTO 170 

720 FOR ra=su TO az-1:fs$(ra)=fs$(r 
a+1):d$(ra) =d$( ra+t1) :NEXT:az=az-1:6G 

0TO 170 

730 REM ---Vokabeln abfragen--- 

740 ng=-0:nz=az:GOSUB 1860 

750 MOVE 125,347:TAG:PRINT "” 

beln abfragen ”";:TAGOFF 

760 IF az-0O THEN GOSUB 1970:60T0 17 

0 

770 IF sp$="Latein" OR sp$="latein"” 
OR sp$="LATEIN” THEN ad$="lateinis 

ch”:GOTO 790 

780 ad$=LOWER$( sp$) 

790 LOCATE 2,5:PRINT "Soll ich Sie 
nach ";ad$;"en oder nach" :PRINT "” " 
;CHR$( 24) ;"deutschen" ;CHRA$( 24) ;” WI 
rtern fragen ?":ab=2 

800 IF INKEY( 1)-0 OR INKEY(0)-O THE 

N LOCATE 2,6:PRINT "deutschen" :LOCA 

TE 20,5:PRINT CHR$( 24) ;ad$; "en"; CHR 
$( 24) :ab=1 

810 IF INKEY(8)=0 DR INKEY(2)=O THE 

N LOCATE 20,5:PRINT ad$; "en" :LOCATE 
2,6:PRINT CHR$( 24) ;"deutschen” ; CHR 

$( 24) :ab=2 

820 IF INKEY(9)=-DO OR INKEY( 18)=-0O TH 

EN CLS:GOTO 840 

830 GOTO 800 

840 LOCATE 23, 17:PRINT "M:Menu” 

850 MOVE 151,111:DRAW 409, 111:DRAW 

409,288:DRAW 151,288:DRAW 151,112 
860 MOVER 0, 138:DRAWR 258,0:MOVER 0 
‚-5:DRAWR -258,0:MOVER 0,-2:DRAWR 2 

58,0 

870 MOVE 168,110:FOR ze=1 TO 6:DRAW 

R 255,0:MOVER 0,-1:DRAWR -255,0:MOV 

ER O,- 1:NEXT 

880 MOVE 410,272:FOR ze=1 TO 7:DRAW 


Voka 


54 


nz me eeseEEEEREEE] 


LISTING 


A 0,-160:MOVER 1,0:DRAWR 0, 160:MOVE 
AR 1,0:NEXT 

890 WINDOW #0,21,50,11,18 

900 WHILE az>O 

910 WINDOW #1,11,64,20,20:PRINT #1, 
CHR$( 24) ;"<SPACE>:]bersetzung !”;CH 
A$(24) ;"” G:Gewu”t N:nicht gewu 
en 

920 m-INT( AND( 1) #*az+1) :IF m=-0O THEN 

920 

930 IF ab=-1 THEN vf$=fs$(m) :vd$=d$( 
m) ELSE vf$=d$(m) :vd$=fFs$(m) 

940 CLS:MOVE 160,277:TAG: PRINT “ 

; :MOVE 
160,277:TAG: PRINT LEFT$( vd$, 30) ; :TA 
GOFF:IF LEN(vd$) >30 THEN PR 
INT RIGHT$L vd$,LEN( vd$) -30) 

950 IF INKEY(47)-0O THEN PRINT#1,"x<5 
PACE>:]bersetzung ! ":CHR$( 24) ;” 

G:Gewu”t";CHR$( 24) ;" ";CHR$( 24) ;" 
N:nicht gewu”t";CHR$( 24) :60 

TO 980 

960 IF INKEY(38)=-0 THEN 170 

970 GOTO 950 

980 CLS:MOVE 160,277:TAG:PRINT” 

"::MOVE 1 

60,277:TAG:PRINT LEFT$(vf$,30) ; :TAG 

OFF:IF LEN(vf$)>30 THEN PRI 

NT RIGHT$CvF$,LEN( vf$) -30) 

990 IF INKEY(52)>=0 THEN 1030 

1000 IF INKEY(46)>-0O THEN ng=ng+1:6G 

O0TO 1040 

1010 IF INKEY( 38) -O THEN 170 

1020 GOTO 990 

1030 FOR n=m TO az-1:d$(n)=d$(n+1): 
fs$(n)=fs$ln+1) :NEXT:az=az-1 
1040 WEND 

1050 CLS:MOVE 160,277:TAG:PRINT 
LE VOKABELN SIND ABGEFRAGT. 

FF:FOR p=1 TO 1000:NEXT 
1060 WINDOW #0,9,64,6,22 
1070 CLS:LOCATE 2,3:PAINT "Hier ist 
Dein Ergebnis:"”:FOR ns=1 TO 6:0N n 
s GOSUB 1100,1110,1120, 1130, 1140,11 
50:IF ng*nd<=nz THEN 1080 E 

LSE NEXT 

1080 LOCATE 2,5:PRINT ng$:LOCATE 2, 
8:PRINT"<SPACE>" 

1090 IF INKEY(47)=0 THEN 170 ELSE 1 
090 

1100 nd=7:ng$="Absolute Spitze.Weit 
er so !!!":RETURAN 

1110 nd=5:ng$="Du hast die Vokabeln 
gut gelernt.Mach’ weiter so.":RETU 

AN ; 

1120 nd=3:ng$=" Noch nicht perfekt. 

Guck’ Dir die Vokabeln noch ’mal an 
. "RETURN 

1130 nd=2:ng$=" Na ja.Eigentlich so 
lltest Du besser sein.Schau Dir die 


"AL 
;:TAGO 


Wirter noch einmal gut an.":RETUR 


N 

1140 nd=1:ng$=" Also, toll warst Du 
nicht gerade.Du mu”t die WIrter 
noch einmal lernen.Du wirst aber 

bestimmt noch besser."”:RETU 

AN 

1150 nd=0:ng$=" Du hast die Vokabel 

n nicht gelernt.Gib’ aber nicht auf 

- Keep trying !!!":RETURN 

1160 REM ---Vokabeln sichern--- 

1170 GOSUB 1860 

1180 MOVE 125,347:TAG:PRINT " 

abeln sichern "; : TAGOFF 

1190 IF az=0 THEN GOSUB 1970:G0T0 1 

70 

1200 LOCATE 2,2:IF disc=O THEN PRIN 

T "Cassette einlegen und <REC> & <P 

LAY> dr}cken !"” ELSE PRINT "Diskett 

e einlegen !" 

1210 GOSUB 1620:L0CATE 2,4:PRINT "D 

ateiname (<ENTER>:Menu) ?”; :WINDOW 

#0,37,64,9,9:INPUT "",dn$ 

1220 IF dn$="" THEN 170 

1230 GOSUB 1870:L0OCATE 2,6:PRINT"”B 

ITTE WAR DT E N” 

1240 DPENOUT CHR$( 33) +dn$: PRINT #9, 

sp$:PAINT #9,az:FOR g=-1 TO az:PRINT 

#9,d$( g) :PRINT #9,fs$(g) :NEXT:CLOS 

EOUT:GOTO 170 


Vok 


1250 REM ---Vokabeln laden--- 
1260 GOSUB 1860 
1270 MOVE 125,347:TAG:PRINT " Vo 


kabeln laden ";:TAGOFF 

1280 da=1:LOCATE 2,2:IF disc=O THEN 

PRINT "Cassette einlegen und <PLAY 

> dr}cken 1" ELSE PRINT "Diskette e 

inlegen !"” 

1290 LOCATE 2,4:PRINT "Gib die Date 

inamen der zu ladenden Dateien an. 
(<ENTER>:Fertig) ":hi=O 


1300 GOSUB 1620:FOR la-1 TO 100:hi- 
hi+1 

1310 LOCATE 2,6+hi:PRINT la;":";:WI 
NDOW #1,15,25, 11+hi, 11+hi: INPUT#1," 
" ‚dn$( 1a) 

1320 IF dn$( 1)="" THEN 170 

1330 IF dn$( la)-"" THEN la=la-1:G0T 
0 1360 

1340 IF hi=11 THEN LOCATE 2,7:FOR h 


i=1 TO IT:PAINT ” ar 
NEXT:hi=0 

1350 NEXT 

1360 GOSUB 1870:CL5:LOCATE 2,6:PRIN 
Ts 8377.77 E WARTE 
N" 


1370 FOR nl=1 TO la:ax=az+1:0PENIN 
CHR$( 33) +dn$( nl) :INPUT #9, sp$: INPUT 
#9,az 
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1350 sp-1:az-ax+taz-1:IF az>1000 THE 

N az=1000:G60T0 1400 

1390 FOR g-ax TO az:INPUT #9,d$(g), 

fs$( g) :NEXT:CLOSEIN:NEXT:GOTO 170 
1400 CLS:LOCATE 2,2:PRINT "Ich kann 
keine weiteren Vokabeln verarbeite 

n."”:FOR p=1 TOD 2000:NEXT:GOTO 170 


1410 REM ---Verschiedenes--- 

1420 GOSUB 1860:MOVE 125,347:TAG:PR 
INT "” Verschiedenes ";:TAGO 
FF 

1430 IF wv=D OR wv=7 THEN wv=1 

1440 me$( 1)="Vokabeln ansehen" :p 
RINT:PRINT TAB( 18) me$( 1) 

1450 me$( 2) ="Vokabeln drucken” :P 
RINT:PRINT TAB( 18) me$(2) 

1460 me$( 3) -"Katalog” :P 
ARINT:PRINT TAB( 18) me$(3) 

1470 me$( 4) ="Datei 1l|j schen” :P 
ARINT:PRINT TAB( 18) me$( 4) 

1480 me$(5) =-"Datei umbenennen” pP 
AINT:PRINT TAB( 18) me$(5) 


1490 me$( 6) ="Andere Sprache w{hlen” 
:PRINT:PRINT TAB( 18) me$(6) 

1500 me$( 7?) ="Hauptmenu” .p 
AINT:PARINT TAB( 18) me$( 7) 

1510 LOCATE 18,wv#2:PRINT CHRA$( 24); 
me$( wv) ;CHAR$( 24) 

1520 IF INKEY(2)=0O THEN IF wv=7 THE 
N 1530 ELSE LOCATE 18,wv#2:PRINT me 
$lwv) :wv=wv+1:L0OCATE 18,wv#2:PRINT 

CHR$( 24) ;me$( wv) ;CHRA$( 24) :F 

OR p=1 TO 75:NEXT 

1530 IF INKEY(0)=0 THEN IF wv=1 THE 
N 1550 ELSE LOCATE 18,wv#2:PRINT me 
$lwv) :wv=wv-1:L0OCATE 18,wv#2:PRINT 

CHR$( 24) ;me$( wv) ;CHR$( 24) :F 

OR p=1 TO 75:NEXT 

1540 IF INKEY(9)=-0 OR INKEY( 18)=0 T 
HEN 1560 

1550 GOTO 1520 

1560 ON wv GOTO 1570, 1990,2080, 1700 
‚1760, 1660, 170 

1570 IF az=0O THEN CLS:605UB 1970:CL 
5:G0T0 1440 

1580 MODE 2:FOR g=1 TO az:PRINT g;” 
. ";fs$(g) ;TAB(40)” ";CHA$(243) ;"” " 
;d$( g) :NEXT:PRINT "<SPACE>" 

1590 IF INKEY(47)<O THEN 1590 

1600 GOSUB 1830:6G0T0 1410 

1610 REM =======Unterprogramme===== 


1620 FOR er=1 TO 30:er$=INKEY$:NEXT 


1630 RETURN 

1640 KEY DEF 39,1,163,60,44:RETURN 
1650 REM --- Andere Sprache --- 
1660 CLS:60S5UB 1890:MOVE 321,336:TA 
6:PRINT ” Andere Sprache ”";:TAG 
OFF 


1670 GOSUB 1620:LOCATE 4,3:PRINT "S 
prache (<ENTER>:Menu) ":INPUT #3,"”"” 
‚sn$:IF sn$="" THEN 1680 ELSE sp$=s 


n$:sp=1 
1680 GOSUB 1830:6G0T0 1420 
1690 REM --- Datei loeschen --- 


1700 IF disc=O THEN 1730 

1710 CLS:GOSUB 1890:MOVE 321,336:TA 
G:PRINT " Datei 11schen "::TAG 
OFF 

1720 GOSUB 1620:L0OCATE 4,3:PRINT"Da 
teiname ( <ENTER>:Menu) ":INPUT #3,"”"” 
‚10$:IF 10$="" THEN 1740 

1730 |ERA,®@10$ 

1740 GOSUB 1830:G0T0 1420 

1750 REM --- Datei umbenennen --- 


1760 IF disc=O THEN 1810 

1770 CLS:GOSUB 1890:MOVE 321,336:TA 

G:PRINT ” Dateien umbenennen ";:TAG 

OFF 

1780 GOSUB 1620:L0OCATE 4,2:PRINT "”< 

ENTER> :Menu”:LOCATE 4,3:PRINT "Wie 

hei’t die Datei jetzt ?":INPUT #1,” 
"‚da$:IF da$="" THEN 1810 

1790 LOCATE 4,4:PRINT "Wie soll sie 
ab jetzt hei’en ?":INPUT #2,"”"”,db$ 
:IF db$="" THEN 1810 

1800 | REN, @db$,@da$ 

1810 GOSUB 1830:G0T0O 1420 

1820 REM --- 1.Karte --- 

1830 MODE 2:LOCATE 25,1:PRINT "B e 

Wo Rr d s":LOCATE 23,2:PRINT 
Ses=------ nö anmanennen ":REM 23 St 
}ck 

1840 MOVE 47,55:DRAW 496,55:DRAW 49 
6,336:DRAW 111,336:DRAAW 111,361:DRA 

W 47,361:DRAW 47,55:LOCATE 9,4:PRIN 
T”Menu"” :RETURN 

1850 REM --- 2.Karte --- 

1860 MOVE 63,55:DRAW 496,55,0:DRAW 

496,327:MOVE 63,47:DRAW 512,47,1:DR 
AW 512,328:DRAW 309,328:DRAW 309,35 
3:DRAW 124,353:DRAW 124,328 

:DRAW 63, 328:DRAW 63,47 

1870 WINDOW #0,9,64,6,22:RETURN 
1880 REM --- 3.Karte --- 

1890 MOVE 79,47:DRAW 512,47,0:DRAW 
512,320:MOVE 79,39:DRAW 528,39, 1:DR 

AW 528,320:DRAW 481,320:DRAW 481,34 

5:DRAW 320,345:DRAW 320,320 

:DRAW 79,320:DRAW 79,39:WINDOW #1,3 
9,66,8,8:WINDOW #2,42,66,9,9:WINDOW 
#3,36,66,8,8:RETURN 


1900 REM --- Ende --- 
1910 GOSUB 1860:MOVE 125,347:TAG:PR 
INT” Ende ">: TAGOF 


F:LOCATE 2,2:PRINT "Sind Sie sicher 
(ja oder ";CHR$( 24) ;"nein" 
;CHR$C24) ;") 7" 
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1920 IF INKEY(8)-0O THEN LOCATE 27,2 
:PRINT "nein":LOCATE 19,2:PRINT CHR 
$( 24) ;" ja" ; CHR$( 24) :en=1 

1930 IF INKEY( 1)=0 THEN LOCATE 19,2 
:PRINT "ja”:LOCATE 27,2:PRINT CHR$( 
24) ;"nein";CHRA$( 24) :en=2 

1940 IF INKEY(9)=-0 OR INKEY(18)-0 T 
HEN IF en=1 THEN GOSUB 1620:MODE 2: 
END ELSE 170 

1950 GOTO 1920 

1960 REM -"Keine Vokabeln im Speich 
er"- 

1970 LOCATE 2,2:PRINT "ES SIND KEIN 
E VOKABELN IM SPEICHER !":FOR p=1 T 
DO 4000:NEXT : RETURN 

1980 REM ---Druckerausgabe--- 

1990 WIDTH 80:FOR g=1 TO az:PRINT # 
8,8;". ";fs$(g);TAB(37)" hei’t ";d 


$lg) :NEXT 
2000 GOTO 1510 
2010 REM --- Bildschirmaufbereitung 


bei "Vokabeln eingeben"--- 

2020 CLS:MOVE 283,320:DRAW 283,64:M 
OVER 1,0:DRAWR 0,256:MOVER 1,0:DRAW 
R 0,-256 

2030 LOCATE 13-LEN( sp$) /2,1:PRINT s 


p$;":":LOCATE 36, 1:PRINT"Deutsch:":. 


LOCATE 25, 17:PRINT CHRA$( 24) ;"1"; CHR 
$( 24) ;" :Menu"” 

2040 WINDOW #0,9,35,8,21 

2050 WINDOW #1,37,64,8,21 

2060 RETURN 

2070 REM --- Katalog --- 

2080 GOSUB 1620:MODE 2:IF disc=O TH 
EN PRINT "Kassette einlegen und <SP 
ACE> dr}cken !!!” ELSE PRINT "Diske 
tte einlegen und <SPACE> dr 

}cken !!!" 

2090 IF INKEY(47)<O THEN 2090 

2100 MODE 2:CAT:PRINT ” <SPACE>" 
2110 IF INKEY(47)<O THEN 2110 

2120 GOSUB 1830:60T0 1420 


TURBO- 
TAPE 


Nicht jeder hat eine Diskette zur Verfügung oder 
denkt daran, sich in nächster Zeit eine zu kaufen. 
Trotzdem will natürlich jeder sein Programm und die 
Daten so schnell wie möglich abspeichern, also muß 
die Geschwindigkeit erhöht werden. Bei dieser Gelegen- 
heit sollte man aber gleich einmal an die Tonkopf- 
Justierung denken. Eine schlecht eingestellt Spur 
nutzt niemandem. 
Das Programm Turbo-Tape ist das Ergebnis einer gan- 
zen Reihe von Versuchen, eine komfortable DATA- 
corder-Benutzung zu ermöglichen. Es bindet zwei 
RSX-Befehle in das Schneider-Basic ein. 
Nach dem Starten des Basicladers, der die Maschinen- 
routine in den Speicher bringt (ab Adresse &A000), 
kann diese durch den Aufruf ‘CALL &A000' gestartet 
werden. Durch das Maschinenprogramm werden die 
Befehle 

ITURBO,x und ISPEEDNUM 
in das Basic eingebunden. 
Nun die Befehle im Einzelnen: 
ITURBO;,x stellt die Bandgeschwindigkeit ein, wobei 
gilt: O=SPEED WRITE 0, 1=SPEED WRITE 1 und 
2=TURBO-TAPE. Wenn die an den Befehl angehäng- 
te Zahl größer ist als 2 oder wenn gar kein Parameter 
übergeben wurde, wird eine Fehlermeldung ausgege- 
ben, die auf eine Unstimmigkeit in der Parameterüber- 
gabe hinweist. 
ISPEEDNUM gibt die augenblickliche Geschwindig- 
keit des DATAcorders an. Hierbei „sagt“ Ihnen das 
Programm, ob SPEED WRITE 0,1 oder TURBO ein- 
gestellt ist. Bei anders eingestellten Geschwindigkeiten 
(z.B. durch einen POKE an der richtigen Stelle), mel- 
det das Programm, daß hier eine unbekannte Baud- 
rate eingestellt wurde. 
TURBO-TAPE ist eine Erweiterung des SPEED 
WRITE x Befehls, die einerseits sehr viel einfacher in 
der Handhabung, andererseits auch bequemer in der 
Benutzung (durch ISPEEDNUM) ist. 


(Holger Schlichting) 


1 RR HIHI 
2,08 TURBO-TAPE %* 
3 '% VON * 
4 '%* HOLGER SCHLICHTING * 
GRTZR FUER * 
7 SCHNEIDER AKTIV * 
TER CPC 464 Im* 
8 ARRRHHHHHIHIHHHIHIIE SERIES HIT 


10 MEMORY E9FFF 

20 FOR adr-GAU00 TO EA1ID4:READ a$:P 
OKE adr,VAL( "&"+a$) :NEXT 

30 DATA 01,13,A0,21,0F,A0,CD,D1 

40 DATA BC,3E,C9,32,00,A0,C9,00 » 
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50 DATA 00,00,00,18,A0,C3,29,A0 
60 DATA C3,DA,A0,54,55,52,42,CF 
70 DATA 53,50,45,45,44,4E,55,CD 
50 DATA 00,FE,01,C2,B8,AD,7B,FE 
90 DATA 00,C2,49,A0,21,A1,A1,?E 
100 DATA 23,CD,5A,BB,B7,C2,37,A0 
110 DATA 21,D1,B8,36,06,23, 36,53 
120 DATA C9,FE,01,C2,63,A0,21,BB 
130 DATA A1,7E,23,CD,5A,BB,B7,C2 
140 DATA 51,A0,21,01,88,36,00,23 
150 DATA 36,29,C9,FE,02,C2,B8,A0 
160 DATA 21,70,AD,7E,23,CD,5A,BB 
170 DATA B7,C2,6B,A0,21,D1,B8,36 
180 DATA 02,23,36,17,C9,00,07,2A 
190 DATA 2A,2A,20,54,75,72,62,6F 
200 DATA 2D,54,61,70,65,20,56,32 
210 DATA 2E,31,20,6F,6E,20,2D,2D 
220 DATA 20,28,43,29,31,39,38,37 
230 DATA 20,62,79,20,43,6F,6D,70 
240 DATA 75,74,20,53,6F,66,74,77 
250 DATA 61,72,65,20,2A,2A,2A,00 
260 DATA 21,C5,A0,7E,23,CD,5A,BB 
M 270 DATA B7,C2,8B,A0,C9,07,52,53 
r\ 280 DATA 58,20,50,61,72,61,6D,65 
290 DATA 74,65,72,66,65,68,6C,65 
COMPUTER-TITEL | 30 Ara 2.00; 34.01.88; re.02;c2 
310 DATA EF,AO,21,20,A1,7E,23,CD 
AUS DEM VERLAG | 25 oAra sa,28.87,c2, Es, A0,c9, re 
330 DATA 06,C2,01,A1,21,35,A1,7E 
Nr. 3/87 . omsmwöswisrneum  -B 20131 F 340 DATA 23,CD,5A,BB,B7,C2,F7,AO 
350 DATA C9,FE,0C,C2,13,A1,21,53 
360 DATA A1,7E,23,CD,5A,BB,B7,C2 
370 DATA 09,A1,C9,21,71,A1,7E,23 
380 DATA CD,5A,BB,B7,C2,16,A1,C9 
390 DATA 54,55,52,42,4F ,20,54,41 
400 DATA 50,45,20,69,73,74,20,61 
410 DATA 6B,74,69,76,00,53,50,45 
420 DATA 45,44,20,57,52,49,54,45 
430 DATA 20,30,20,69,73,74,20,65 
440 DATA 69,6E,67,65,73,74,65,6C 
450 DATA 6C,74,00,53,50,45,45,44 
460 DATA 20,57,52,49,54,45,20,31 
470 DATA 20,69,73,74,20,65,69,6E 
480 DATA 67,65,73,74,65,60,60,74 
490 DATA 00,45,69,6E,65,20,75,6E 
500 DATA 62,65,6B,61,6E,6E,74,65 
510 DATA 20,47,65,73,63,68,77,69 
520 DATA 6E,64,69,67,6B,65,69,74 
530 DATA 20,69,73,74,20,65,69,6E 
540 DATA 67,65,73,74,65,6C,6C,74 
550 DATA 00,07,53,50,45,45,44,20 
560 DATA 57,52,49,54,45,20,30,20 
570 DATA 73,65,6C,65,63,74,65,64 
550 DATA 20,21,00,07,53,50,45,45 
590 DATA 44,20,57,52,49,54,45,20 
600 DATA 31,20,73,65,6C,65,63,74 
610 DATA 65,64,20,21,00 


SERIE schneider) 


| aktiv) 


RICHTIG PROGRA- 
MMIEREN 


IN BASIC: 


UNSER- 


 DATEI-PROGRAMM 


Wie die vielen positiven Reaktionen unserer Leser zei- 
gen, haben wir mit dieser Serie über das richtige Pro- 
grammieren in Basic genau das Richtige getroffen. 
Kein nacktes Auflisten der Basic-Befehle, sondern an- 
hand eines lauffähigen Beispielprogrammes werden Sie 
in die Anfänge des Programmierens herangeführt. 
Kleine Tips und Kniffe runden diese Serie ab. 
Nachdem im ersten Teil Grundsatzüberlegungen erläu- 
tert und das Hauptmenü unseres Software-Verwal- 
tungsprogramms Zeile für Zeile erläutert und im zwei- 
ten Teil die Eingaberoutine vorgestellt wurde, geht es 
nun diesmal um den Menüpunkt “Programme aus der 
Datei löschen‘. Daß überhaupt die Möglichkeit des 
Löschens vorgesehen ist, dürfte ja wohl jedem klar. 
sein: Warum sollte man in der Datei noch Programm- 
namen mitschleppen, wenn das Programm selbst 
schon gelöscht wurde, aus welchem Grund auch immer? 
Vom Menü aus (Zeile 220) wird, wenn der Menüpunkt 
“LÖSCHEN“ aufgerufen wird, die Zeile 2000 ange- 
sprungen. Und da beginnt nun auch unser heutiges 
Listing. Die Zeile 2000 dürfte Ihnen ja inzwischen klar 
sein. Auch die Zeile 2010 dürfte Ihnen keine Schwie- 
rigkeiten bereiten: Damit wird eine Subroutine auf- 
gerufen, die lediglich die Aufgabe hat, die Statuszeile 
zu schreiben. Da wir in diesem Teil zweimal die glei- 
che Statuszeile schreiben, haben wir daraus ein Unter- 

rogramm gemacht. Es ist zwar nur eine Zeile (2980) 
ang, aber warum soll man sich nicht Tipparbeit spa- 
ren, wenn man kann? 


WICHTIG: SICHERHEITSABFRAGE 


Nach der Rückkehr aus der Zeile 2980 folgt jetzt in 
den Zeilen 2020 bis 2070 eine Sicherheitsabfrage. 
Wozu? fragen Sie? Hier die Antwort: Falls Sie aus 
dem Hauptmenü irrtümlich den Menüpunkt “Löschen“ 
aufgerufen haben, könnten Sie sonst nur noch durch 
Abbruch des Programms mittels Drücken der ESC- 
Taste diesen Programmteil verlassen. Und das soll ja 
wohl nicht sein! 

In den Zeilen 2020 und 2030 wird lediglich eine Bild- 
schirmmeldung an den mit dem Locate-Befehl angege- 
benen Positionen ausgegeben. Nach dem Warten auf 
Tastendruck (call &bb18) kommt nun die entschei- 
dende Zeile der Sicherheitsabfrage: Wenn Sie die 
Taste 46(“N‘‘) für Nein drücken, springt das Pro- 
gramm ohne weitere Folgen in das Hauptmenü zur 
Zeile 120 zurück. Und Ihren Daten ist nichts passiert! 
Drücken Sie jedoch die Taste 46 für Ja, so geht’s in 
2080 weiter. Drücken Sie irgendeine andere Taste, 

so geht das Programm wieder in die Zeile 2040 und 
wartet erneut auf einen Tastendruck. Sie kommen 

da also nur wieder heraus, indem Sie entweder 

“J“ oder “N““ drücken. Und so kann Ihnen eigent- 
lich nichts schiefgehen. 


KOMFORTABLER CAT-BEFEHL 


Die Zeile 2090 fragt nun nach dem Namen der Datei, 
aus der ein Datensatz (oder mehrere) gelöscht werden 
soll. Damit Sie an dieser Stelle wissen, welche Dateien 
Sie auf Ihrer Diskette haben, erfolgt in 2080 die Aus- 
gabe des Disketteninhaltes durch den Cat-Befehl. 
Dazu ist an dieser Stelle natürlich Voraussetzung, 

daß auch die Datendiskette eingelegt ist. Um ein stän- 
diges Wechseln der Disketten zu vermeiden, empfeh- 
len wir, die Diskette, die das Datei-Programm selbst 
enthält, auch als Datendiskette zu benutzen. 
Tape-Benutzern wird empfohlen, diesen Befehl weg- 
zulassen. 


DAS FRAGEZEICHEN WIRD UNTERDRÜCKT 


Hier noch eine Besonderheit in Zeile 2100. Nach dem 
Input-Befehl, der selbst wohl nicht mehr erläutert 
werden braucht, bemerken Sie die zwei „Gänsefüß- 
chen oben“. Die haben nur den Zweck, das Frage- 
zeichen nach dem Input-Befehl zu unterdrücken. Ob 
dies so wollen oder nicht, bleibt Ihnen über- 
assen. 


IMMER WIEDER: SUBROUTINEN 


Im nächsten Schritt springt das Programm in die Ihnen 
schon aus der letzten Folge bekannten Subroutine 
“Daten einlesen“. Und zwar werden jetzt die Daten 
aus der Datei eingelesen, die Sie in der Zeile 2100 
aufgerufen haben. Die Leseroutine selbst wird hier 
nicht erläutert, das haben wir schon in der letzten 
Folge gemacht. 

Nach der Rückkehr erfolgt sofort wieder der Sprung in 
die nächste Subroutine, mit der die Statuszeile neu be- 
schrieben wird. Denn während des Dateieneinlesens 
wurde ja zwischenzeitlich eine andere Statusmeldung 
ausgegeben. 


SUCHSCHLEIFE MIT INSTR 


Die Zeilen 2130 bis 2160 sind klar. Interessant wird es 
für Sie wieder in der Suchschleife (Zeilen 2170 bis 
2190). Da taucht ein neuer Befehl auf: der INSTR- 
Befehl. Mit Hilfe dieses Befehls weisen wir den CPC 
an, die Dateinamen (pn$) nach dem Inhalt des zu lö- 
schenden Programmnamens zu durchsuchen. Dieser 
INSTR-Befehl hat einen gewaltigen Vorteil: Sie brau- 
chen nicht den vollständigen Namen des zu löschen- 
den Programms einzugeben: Es genügt ein Teil davon! 
Dazu folgende Erläuterung: Stellen Sie sich vor, Sie 
wollen das Programm ‚Hacker 2“ löschen und wissen 
nicht, wie Sie es einmal eingegeben haben. War es 
Hacker 2, Hacker?, Hacker II oder vielleicht 
HackerlI? Durch den INSTR-Befehl brauchen Sie 
jetzt nur den Teil einzugeben, den Sie sicher wissen: 
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RITTER 


also Hacker! Der CPC sucht jetzt alle Programmna- 
men nach der Buchstabenfolge Hacker durch, egal, 
ob diese Buchstaben am Anfang, am Ende oder mit- 
ten im Wort stehen, der Computer zeigt Ihnen jetzt 
alle Datensätze, die diesen Teil enthalten. 

Im Extremfall brauchen Sie auch nur ““H“ einzugeben. 
Dann werden Ihnen allerdings der Reihe nach alle 
Programmnamen vorgeblendet, die irgendwo den 
Buchstaben “H“ enthalten. 

Noch ein paar Bemerkungen zur Zeile 2170: Der Be- 
ginn der Suchschleife lautet hier: for i= b to z. Ist 
Ihnen klar warum? Nein? Dann hier die Erklärung: 
Die Variable b wird in Zeile 2160 gesetzt (b=1). Beim 
ersten Schleifendurchläuf hat also b den Wert 1, also 
fängt i auch bei 1 an, die Schleife bis zum Endwert z 
(Zahl der Datensätze) zu durchlaufen. Wenn jetzt die 
Bedingung in Zeile 2180 zutrifft, der Suchname also 
im String pn$ enthalten ist und Sie diesen Datensatz 
trotzdem nicht löschen wollen, so können Sie dann 
das Suchen fortsetzen. Die Schleife soll aber dann 
nicht wieder bei 1 beginnen, sondern dort fortfahren, 
wo sie vorher aufgehört hat. Der entsprechende Befehl 
steht in der Zeile 2320, ziemlich am Ende. Dort wird 
b neu gesetzt (b=it+1). Das Programm würde dann also 
beim nächsten Datensatz mit dem Suchen weiterma- 
chen. Alles klar? 

Findet das Programm den zu löschenden Namen 
nicht, so wird dies in Zeile 2200 gemeldet. In 2210 
erfolgt der Hinweis, wie es nun weitergeht. Entweder 
durch Drücken der Taste 46 zurück zur Zeile 2130, 
um einen neuen Programmnamen einzugeben. 

Oder mit Taste 71 (*Z“) zur Zeile 2990. Dort werden 
dann durch den Erase-Befehl alle Datensätze gelöscht 
und der Rücksprung ins Hauptmenü erfolgt. 


NOCH EINMAL EINE SICHERHEITSABFRAGE 


Wurde der entsprechende Datensatz jedoch gefunden, 
so wird er komplett durch die Zeilen 2260 bis 2300 
auf dem Bildschirm dargestellt. Und die Zeile 2310 
zeigt Ihnen dann die Möglichkeiten an, die Sie jetzt 
haben: Entweder tatsächlich löschen oder weiter- 
suchen oder zurück zum Menü. Dabei ist für Sie sicher 
die Zeile 2320 interessant. Nach dem Befehl auf ei- 
nen Tastendruck zu warten, folgt eine If-then-Schleife, 
die im zweiten Teil eine weitere If-then-Schleife ent- 
hält. Daß so etwas möglich ist, zeichnet das Schneider- 
CPC-Basic als besonders komfortabel aus, stellt aller- 
dings auch erhöhte Anforderungen an den Program- 
mierer. 

Trifft in einer solchen Schleife die erste If-Bedingung 
nicht zu, so tritt die Else-Funktion in Kraft, die dann 
ihrerseits wieder erst die nachfolgende If-Bedingung 
abfragt, bevor dann eventuell die Else-Bedingung aus- 
geführt wird. 

Es wird aber davor gewarnt, diese Verschachtelung 
häufig zu verwenden oder bis zum Exzeß zu treiben. 
re wird diese Art Programmiererei 
nicht! 


JETZT WIRD GELÖSCHT 


In den nächsten Zeilen (2330 bis 2350) wird jetzt der 
Datensatz, der von Ihnen ausgewählt wurde, tatsäch- 
lich gelöscht. Die Zeile 2330 wird beim Druck der 
Taste 36 von der Zeile 2320 aus (siehe dort) angesprun- 
gen. Die nachfolgende Schleife macht jetzt folgendes: 
Der Datensatz (pn$(y+1)), der dem zu löschenden 
folgt, wird um eine laufende Nummer herabgesetzt 

und so fort. 


__SERIE 


eBRaR GLS 

2810 GOSUB 2988 

2828 LOCATE 26, 18:PRINT"Sie wollen 
Datensaetze lorschen ?" 

2938 LOGATE 34,12:PRINT"Sind Sie #si 
cher?" 

2B4B CALL &BB18 

2858 IF INKEY(46)=® THEN GOTO 128 

2868 IF INKEY(45)=-® THEN GOTO 29888 

2078 GUTO 2948 

2888 CLS:CAT 

2898 LOCATE 15,21:PRINT"Aus welcher 
Datei soll ein Programm geloescht 

werden?” 

2188 LOCATE 38,23:INPUT "",dat$:IF 

dat$="" THEN GOTO 2188 

2118 CLS:z=-9:GOSUB 8938 

2128 GOSUB 2988 

2138 LOCATE 28,11:PRINT"Bitte den N 
amen des Programms eingeben,” 

2148 LOCATE 27,12:PRINT"”das geloesc 
ht werden soll” 

2158 LOCATE 38, 15: INPUT"",loeschn$ 
2168 loeschn$=UPPER$( loeschn$) :b=1 
2178 FOR i=b TO z 

2188 IF INSTRA(pn$(i),loeschn$) THEN 
GOTO 2268 

219@ NEXT i 

2208 CLS #8:LOCATE 28, 12:PRINT "Pro 
grammname ";loeschn$;” nicht gefund 
en"”:FOR i=1 TO 1888:NEXT i 

2?18 LOCATE #8,1,24:PRINT #8,” N=Ne 
uen Programmnamen zum Loeschen eing 
eben Z=Zurueck zum Men 
ue”; 
2229 
2230 
130 
2248 


CALI. &BB18B 
IF INKEY(46)=® THEN CLS:60T0 2 


IF INKEY(71)=® THEN GOTDO 2998 
2258 GOTO 2228 
2268 CLS #8:L0OCATE 15,8:PARINT "Date 
nsatz Nr : ";i:L.DCATE 15,18: 
PRINT"Programmname : "z;pn$li 
) 
2278 LOCATE 15, 11:PRINT"”Programmlae 
nge : ";1lae$l(i) 
22BR LOCATE 15, 12:PRINT"Startfile 
: ";filn$(li) 

2298 LOCATE 15, 13:PRINT"Disk/Kass-N 
= : "ort$l(i) 
L.OCATE 15,14:PRINT"Bemerkungen 

: ";bem$(i) 
2318 I OCATE 1,24:PRINT"L=Diesen Dat 
ensatz loeschen W-Weitersuc. 
hen Z=Zurueck zum Menue” 
232® CALL &BB18:IF INKEY( 36) -=B THEN 
GOTO 2338 ELSE IF INKEY(71)=B® THEN 
GOTN 2998 ELSE b=-i+1:60T0 2178 
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2338 FÜR y=-i TIO z-1 
2348 pn$l( y) =pn$( y+1) :ort$( y)J=ort$( y 
+1) :1ae$( y)=laoe$( y+1) :filn$(ly)=filn 
$Ly+1) :bem$( y) -bem$( y+1) 
2358 NEXT y 
2368 LOCATE 1,24:PRINT" 

Dieser Datensatz wurd 
e geloescht Die 
2378 FOR w=1 TO 18898:NEXT w:z=z- 1: G 
0UOSUB 8488 
2388 CLS:LOCATE 7,11:PRINT"Wollen 5 
ie weitere Datensaetze aus der glei 
chen Datei loeschen <j/n> " 
2398 LOCATE 39, 12:INPUT "",wei$:IF 
UPPER$(wei$)="J" THEN CLS:GOTO 2138 


2408 CLS #8 

2418 GOSUB 8489 

2428 GOTO 128 

2988 PRINT #1, CHR$( 24); 
Datensaetze loes 

chen 2: 

CHR$C 24) ; :RETURN 

2998 ERASE pn$,ort$,1ae$,filn$,bem$ 

:DIM pın$( 200) ,‚ort$( 298) ,lae$( 288) ,f 

-iln$( 288) ‚bem$( 288) :CLS :GOTO 128 


Also: Angenommen, Sie wollen den Datensatz Nr. 23 
löschen, so nimmt der Datensatz Nr. 24 den Platz von 
Nr. 23 ein und so fort, bis zum letzten. Es wird also 
lediglich jeder folgende Satz um eine laufende Num- 
mer herabgesetzt. Der Start dieser Schleife beginnt bei 


dem zu löschenden Datensatz und geht bis zum letzten. 


Das dabei die Schleifenendbedingung z—1 ist, dürfte 
auch klar sein. Denn der vorletzte (alte) Platz wird vom 
letzten Datensatz belegt. 
In Zeile 2370 wird die Zahl der Datensätze um eins 
herabgesetzt (z=z—1). Wenn dann durch Aufruf der 
Speicherroutine in der gleichen Zeile (gosub 8400) 
die Daten weggesaved werden, so dann nur die 
neue Anzahl, also die um eins verringerten. Die Sortier- 
routine braucht nicht aufgerufen zu werden, da die 
Daten ja sowieso schon sortiert vorliegen. Auch wenn 
irgendwo zwischendrin ein Satz gelöscht wird, ändert 
sich ja an der alphabetischen Reihenfolge der rest- 
lichen nichts. 
R der Zeile 2420 erfolgt dann der Rücksprung ins 
enü. 
So, das war’s für diesmal. Wir hoffen, Sie kommen 
mit unseren Erläuterungen klar. Aber nochmals der 
Hinweis darauf, daß diese Serie in erster Linie für die 
Neueinsteiger gedacht ist. Wenn Sie aber Probleme 
haben und den einen oder anderen Befehl oder die 
eine oder andere Zeile nicht genügend erläutert sehen, 
so schreiben Sie uns kurz, wir gehen dann beim näch- 
sten Mal darauf ein. 
Noch ein Hinweis zur letzten Folge: In der Hektik 
des Redaktionsgeschäftes sind leider zwei Versionen 
vertauscht worden. Sie müssen im alten Listing fol- 
gende kleine Korrekturen anbringen? 
In der Zeile 1120 müssen alle Variablen pn$ richti- 
gerweise heißen pn$(z). In dieser Zeile müssen Sie 
dies zweimal berichtigen. 
Ferner müssen Sie noch darauf achten, daß die 
Variable für das Startfile filn$ und nicht file$ heißt. 
Davon sind folgende Zeilen betroffen: 8090, 8240, 
8250, 8260 und 8460. 
Übrigens: Von diesem Heft an werden Sie das Pro- 
gramm in der jeweiligen Fassung auf der Softbox 
finden. (JE) 
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_TIPS & TRICKS 


STRUKTUR: HILFE ZUR 


STRUKTURIERTEN 
PROGRAMMIERUNG 


Zu den ersten Erfahrungen als Hobbyprogrammierer 
gehört, daß man nur wenige Tage braucht, ein Pro- 
gramm in seinen Grundzügen niederzuschreiben, 
aber Wochen, bis man die letzten Fehler gefunden 
hat. Das Schlimmste sind dabei nicht einmal die 
„Syntax Errors‘‘ — auf sie weist einen der Basic- 
Interpreter meist ausdrücklich hin —, sondern die 
logischen Fehler. Bei diesen hat man nur eine 
Chance, wenn man den Programmablauf noch 
nachvollziehen kann. Das Zauberwort heißt „Struk- 
turiertes Programmieren“. 

Vielleicht kennen einige von Ihnen die Art, wie ein 
Pascal-Listing mit eingerückten Zeilen ausgedruckt 
wird. Diese Form macht es zum Beispiel leicht, ver- 
schachtelte Schleifen zu analysieren. 

Aber wer einmal auf dem falschen Weg war, der 
wird seine ersten Listings nur noch mit einem Kopf- 
schütteln betrachten. Eine nachträgliche Aufberei- 
tung ist sehr umständlich und zeitraubend. Wozu 
auch, das Listing läuft ja. Hier setzt das Programm 
Strukter von Schneider aktiv-Autor Thomas Nau- 
mann an. Es läuft auf allen CPC-Modellen (mit und 
ohne Diskettenlaufwerk). Seine Stärken jedoch zeigt 
das Programm besonders dann, wenn man über ein 
Laufwerk und einen Drucker (NLQ 401 o.ä.) verfügt. 
Mit Strukter kann man sich auf dem Bildschirm oder 
auf seinem Drucker ein übersichtliches Programm- 
listing ausdrucken lassen. Strukter hat dabei folgen- 
de Leistungsmerkmale (bezogen auf die Benutzung 
eines Druckers): 

— Jeder Befehl steht in einer Zeile. — Schleifen und 
IF-Statements werden durch Leerzeilen vom übrigen 
Programmtext abgegrenzt. 

— Das Innere von Schleifen und IF-THEN-ELSE- 
Statements wird eingerückt. 

— Statements der Form NEXT j,i werden in 

NEXT j:NEXT i aufgelöst. 

— Weggelassene GOTOs (z.B. bei IF <Bedingung> 
THEN 90) werden eingefügt (aber: IF-Statements 
ohne ein THEN, z.B. “IF k=k GOTO 90“, werden 
nicht verstanden). 

— GOTO, GOSUB und ON werden fettgedruckt. 

— RETURN wird fettgedruckt, unterstrichen und 
um eine Zeile abgesetzt. 

— REM-Statements werden in Sternchen eingerahmt. 
— Jede Seite erhält eine Kopfzeile und eine Seiten- 
nummer. 

— Unten rechts auf einer Seite wird vermerkt, welche 
Zeilen auf ihr zu finden sind. 

— Neben dem Ausdruck von ganzen Programmen 
können auch Teile (von <Anfangszeile> bis <End- 

- zeile>) gedruckt werden. 2 

— Ein umfangreiches Druckmenü erlaubt die Anpas- 
sung des Ausdrucks an individuelle Vorlieben. 

— Die Steuerzeichen des Programms beziehen sich 
auf den NLQ 401. Bei der Verwendung anderer 
Drucker müssen die Zeilen 50 ff entsprechend ange- 
paßt werden. 


Mit Strukter können Sie eine in Ihrem Programm vor- 
handene Struktur deutlich machen (daher der Name). 
Eines kann Strukter aber nicht: ein unstrukturiertes 
Programm strukturieren. Unabhängig davon, ob Sie 
Strukter benutzen wollen oder nicht, empfiehlt es 
sich, folgende Regeln bei der Basic-Programmierung 
zu beachten, damit Sie Ihr Programm auch nach 
sechs Monaten noch lesen können: 

— Keine absoluten Sprünge (d.h.: GOTO-Befehle) 
aus FOR-NEXT- und WHILE-WEND-Schleifen und 
Unterprogrammen. Nicht nur, daß die Übersichtlich- 
keit darunter leidet — irgendwann ist auch mal der 
Stack mit den Rücksprungadressen voll und dann 
kommt es zu zunächst völlig unverständlichen 
„Memory full“-Meldungen. 

— In ein Unterprogramm sollte man nur über eine ein- 
zige Zeile springen (der man möglichst, zumindest 
während der Programmentwicklung, eine REM-Zeile 
voranstellen sollte). 

— In einem Unterprogramm sollte nur ein einziges 
RETURN, und zwar am Schluß des Unterprogram- 
mes, vorkommen. 

— Der Tod aller Übersichtlichkeit sind Befehle wie 
“FOR i=1 to 2:IF <Bedingung> THEN <Befehl> 
ELSE NEXT“ oder “IF <Bedingung> THEN 
RETURN“. Ein NEXT bzw. WEND sollte auf der- 
selben strukturellen Ebene wie das dazugehörige 
FOR bzw. WHILE stehen. Entsprechendes gilt für 
RETURN und die dazugehörige Einsprungzeile. Hier 
hilft Ihnen Strukter durch das Einrücken besonders. 
— Zu jedem IF gehört ein THEN. Der Basic-Interpre- 
ter versteht zwar auch z.B. “IF a=0 GOTO 90“, aber 
das Programm wird dadurch schlechter lesbar. 

Bevor Sie ein Programm durch Strukter verarbeiten 
können, müssen Sie es als ASCII-Datei abspeichern. 
Das geschieht, indem Sie das Programm, das Sie aus- 
drucken lassen wollen, laden (LOAD “<Programm- 
name>‘““) und dann mit SAVE “<Programmname>“ 
a abspeichern. 

Die Bedienung des Programms erklärt sich weitge- 
hend von selbst, so daß hier nur Hinweise zur 
Bedeutung einiger Optionen gegeben werden 
müssen. 


A. Druckmenü 

Durch das Drücken des angegebenen Buchstabens 
schaltet man zwischen zwei Möglichkeiten hin und 
her. Beispiel: Durch <A> schaltet man zwischen 
dem ASCII-Zeichensatz und dem deutschen Zeichen- 
satz (,‚Schneider‘‘), da das Programm für den 
Schneiderdrucker NLQ 401 ausgelegt ist) um. 

Die Schriftdichte gibt an, wieviele Zeichen auf ei- 
ner vollen Druckzeile gedruckt werden (80 oder 132). 
Den standardmäßigen Fettdruck von GOTO, 
GOSUB, ON und RETURN kann man mit <H> 


Bitte lesen Sie weiter auf Seite 66 
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1 en ZZ 2 222 22 2 22 22.22 2.22.22. 272:2.2.22,20225 
STRUKTER * 
3, '%# VON * 
4a '#* THOMAS NAUMANN * 
GE ISR FUER * 
6 '* SCHNEIDER AKTIV * 
VERSEH CPC 464/664/6128 je* 
[ZZ 2 = 22 52 32 22 2 2 2 22 22.222.202 .202.2°272 272720222 


10 ’Version 3.2 vom 23. 4. 87 
20 ’Init 
30 I TAPE :OPENOUT" !d" :MEMORY HIMEM-1 
:CLOSEOUT: | DISC:MODE 2:t$=CHA$( 12) + 
EHR$L31) +CHRA$L 18) +CHR$C 1) +CHA$( 24) + 
" * STRUKTER Version 3.2 - 23.4.87 
* "+CHA$(24) :DIM uel$( 1) :uel$( 0) =CH 
A$L 243) 
40 quit%=-0:3%=13:f%=0::sf%=-0:iF1%X=-0 
:gf%=0:br%=-80:er%=2: j%=0:1%=0:vorsc 
hub$=CHR$( 12) :drusteu$="eavhzbf"+CH 
A$( 13) +"qg"”:default$="BEISPIEL":bt$= 
CHR$C 31) +CHRA$( 20) +CHR$( 25) +CHA$( 24) 
+" Bitte Taste druecken! "+CHR$( 24) 
50 uel$( 1) =CHA$( 27) +CHA$( 61) +uel$( DO 
) +CHA$( 0) :entw$=CHR$( 27) +CHR$C 120) + 
CHR$( 0) :n1q4$=CHA$L 27) +CHR$C 120) +CHA 
$(1):’27+61: Umschalten auf chr$( 12 
8) -chr$( 255) 
60 compr$=CHR$( 15) :compraus$=CHR$L 1 
8) :doppe1$=CHR$( 27) +CHA$( 71) :doppel 
aus$=-CHA$L 27) +CHRA$C 72) :asci$=CHR$L 2 
7) +CHA$(55) :asciaus$=CHRA$L 27) +CHR$LC 
54) 
70 normal$=CHR$( 27) +CHR$( 50) :eng$=C 
HR$( 27) +CHR$( 48) :unterstr$=CHR$( 27) 
+CHR$( 45) +CHR$C 1) :unterstraus$=CHRA$ 
( 27) +CHR$( 45) +CHR$( 2) : zwoe$=CHR$( 27 
) +CHRA$( 67) +CHR$( DO) +CHA$( 12) :e1f$=CH 
A$( 27) +CHR$C 67) +CHR$( 0) +CHRA$( 11) 
80 t%=-1:21%=-0:ze%=--1:dt%=0:gf%=-1: 
zma%=65: zwoelf%=-1: ’zma%=Zeilenanza 
hl pro 12"-Seite 
90 WINDOW#1,1,15,25,25:WINDOW#2, 16, 
30,25,25:WINDOW#3,31,45,25,25:WINDO 
w#4,46,60,25,25:WINDOW#5,61,75,25,2 
5 
190 ’Hauptmenue 
200 PRINT t$ 
210 LOCATE 23,5:PRINT"##= AUSGA 
BE ###":LOCATE 5, 10:PARINT"<B>: Bi 
lIdschirm":LOCATE 5, 12:PAINT"<D>: Dr 
ucker":LOCATE 5, 14:PRINT"”<C>: Catal 
og"”:LOCATE 5, 16:PAINT"<Q>: Programm 
abbruch";bt$:GOSUB 5000 
220 x%=0:IF e$="q"” THEN MODE 2:END 
ELSE IF e$="c"THEN PRINT t$:CAT:PRI 
NT"<TASTE> druecken":60SUB 5000:60T 
- 200 ELSE IF e$="d"THEN GOSUB 3000 
‘zum Druckermenue 
230 PRINT t$ 
240 LOCATE 5,3:PRINT"Dateiname (<EN 


TER> fuer ";CHR$( 34) ;default$; CHA$I 
pe 1 5) :LOCATE SSR INPUT" ‚name$:n 
amb« UPPER$( name$) : IF names=""THEN 
name$=-default$ 

250 LOCATE 5,5:PRINT CHR$( 18); Baus 
260 PRINT bt$:LOCATE 5,7: PRINT"Kopf 
zeile-Dateiname ( 3/n) ?";:GOSUB 5000 
:IF e$="j"OR e$=CHR$( 13) THEN name1$ 
=name$:PRINT" jae":GOTO 280 ELSE PA 
INT" nein” 

270 LOCATE 5,9:PRINT"Listingkopfzei 
le:”:LOCATE 5, 11:LINE INPUT””, name 


280 LOCATE 5,13:PRINT"Einruecken (< 
ENTER> fuer "”;:PRINT USING”# Stelle 
n) :";er%; :PRAINT CHR$( 18) :G0SUB 5000 
:IF e$<>CHA$( 13) THEN er%=VAL(e$) 
290 LOCATE 41,13:PAINT CHRA$( 18) ;er% 
300 LOCATE 5,15:INPUT"Anfangszeile 
(<ENTER> fuer 1): ",anfz!:IF anfz!= 
O THEN LOCATE 36, 15:PARINT"1";CHRA$( 1 
8) 
310 LOCATE 5, 17:INPUT"Endzeile (<EN 
TER> fuer letzte): ",endz!:IF endz! 
=0 THEN LOCATE 37,17:PRINT"letzte"”; 
CHR$( 18) 
320 LOCATE 5,24:PAINT"Weiter mit <E 
NTER> Abbruch mit <Q>":GOSUB 
5000:IF e$="q"”THEN CLS:GOTO 200 
330 PRINT t$:PRINT:s%=1:GOSUB 4400: 
WINDOW#0,1,80,5,25:IF x%=8 THEN LOC 
ATE 20,20:PRINT”<Q> fuer Abbruch" 
340 name$="!"+name$:0OPENIN name$ 
490 "Anfang Hauptpr. 
500 IF EOF THEN 1000 
510 GOSUB 4600:IF quit% THEN 1000 E 
LSE LINE INPUT#9,ez$:zn!=VAL(ez$):I 
F zn!<anfz! THEN 500 ELSE IF endz!< 
>0 THEN IF zn!>endz! THEN GOTO 1000 
520 PRINT#x%, USING AAHHHHHHHHH" ; zu! 
;:IF NOT id%THEN id%=-1:iz!=zn! 
530 GOSUB 2400:p$=ez$:G0OSUB 2000:ez 
$-p$ 
540 ’THEN und ELSE allein in einer 
Zeile 
550 IF LEFT$(ez$,4)="THEN"OR LEFT$( 
ez$,4)="ELSE"THEN zg%=5:G0OSUB 3600: 
G60TO 800 
560 ’Zeile wegen ":" teilen? 
570 zg%=0 


‚580 zg%=INSTA( zg%+1,ez$,":"):IF zg% 


=0 THEN zg%=LEN(ez$) ELSE p$=ez$:q$ 
=":"9:G0SUB 2100:IF NOT eiIXTHEN GOTO 
580 

590 ’Zeile wegen REM oder ” 
ppelpunkt vorweg teilen? 

600 IF zg%<>LEN(ez$) THEN 660 
610 zg%=1 

620 i%=INSTRA( zg%+1,ez2$,""") : j%=-INST 

Al zg%+1,ez$,"REM”) :IF i%=0 AND j%=0 


ohne Do 
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THEN zg%=LEN(ez$) :GOTO 660 ELSE zg 
%=MIN(i%, j%) :IF zg%=0 THEN zg%=MAX( 
i%, j%) 

630 p$=ez$:IF zg%=i%THEN q$=" "ELSE 
q$="REM” 

640 GOSUB 2100:IF NOT e1% THEN 620 

650 ’Zeile wegen IF, THEN o. ELSE t 

eilen? 

660 wort$="ELSE":GOSUB 3400:wort$=" 

THEN" :GOSUB 3400:wort$="IF”":GOSUB 3 

400:G0SUB 4600:IF quit% THEN 1000 E 

LSE GOSUB 3600: ’mz$ aus ez$ bilden 

790 ’Einrueckungen, Leerzeilen 

800 IF LEFT$(mz$,2)="IF"THEN F%=f%+ 

er%:if1%=-1:G0OSUB 3500 :a%=a%+er%:6GO 

TO 950 

810 IF mz$<>""THEN GOSUB 4000:IF za 

%THEN mz$="GOTO "+mz$ 

820 IF LEFT$(mz$,4)="THEN"THEN a%=a 

%-er%:GOSUB 3500:3%=a%+er%:GOTO 950 

830 IF LEFT$(mz$,4)="ELSE"THEN a%=a 

%-er%:GOSUB 3500:3%=a%ter%:GOTO 950 

840 IF LEFT$CmMZ$,3)="FOR"OR LEFT$Cm 
2$,5)="WHILE"THEN if1%=-1:G0SUB 350 

0:a%=3%+er%:GOTO 950 

850 IF LEFT$(mz$,4)="NEXT” THEN G0S 

UB 4700:tf%=-1:a%=a%-er% 

860 IF LEFT$(Lmz$,4) ="WEND"THEN tf%= 
-1:a%=a%-er% 

870 IF LEFT$LmZzZ$,6) ="RETURN"THEN tf 
=-1 

880 IF LEFT$CmzZ$, 1)="’"THEN rf%=-1: 
mz$=RIGHT$(mz$,LEN( mz$) -1) :p$=mz$:G 
DSUB 2000:mz$=p$:GO5SUB 4200:G05UB 4 
500:rf%=0:G0T0O 950 

890 IF LEFT$(mz$,3) ="REM"THEN rf%=- 
1:mz$=RIGHT$( mz$, LEN{ mz$) -3) :p$=mz$ 

:GOSUB 2000:mz$-p$:G0OSUB 4200:G05UB 

4500:rf%=0:G0T0 950 x 
900 ’Wenn Drucker: Hervorhebung von 

Spruengen und RETURN 
910 IF x%<>B OR NOT gfX%THEN GOTO 94 
(a) 


920 IF LEFT$(Lmz$,4)="GOTO"”OR LEFT$( 
mz$,5) ="GOSUB"OR LEFT$LmMZ$,2) ="ON”T 
HEN mz$=doppel$+mz$+doppelaus$ 

930 IF LEFT$(mz$,6) ="RETURN"THEN mz 
$=unterstr$+doppel$+mz$+unterstraus 
 $+doppelaus$ 

940 GOSUB 3500: "zum Druck 

950 GOSUB 4500:IF ez$<>""THEN 550: 
Neue Seite -> neue Zeile lesen, wen 
n Restzeile ez$ leer 

960 ’Leerzeile, wenn in logischer Z 
eile IF vorkam 

970 IF fF%>O AND NOT sf%THEN sf%=-1: 
-GOSUB A4300:6G05UB 4500 

980 A%=a%-fF%: F%=0 

990 G0OTO 500 

1000 CI OSEIN 


1010 IF x%=8 THEN PRINT#x%,CHR$( 12) 
;:LOCATE 5,7 ELSE PRINT 

1020 PRINT"Programm abbrechen <j/n> 
":G0OSUB 5000:IF e$<>"j"THEN RUN ELSE 
E MODE 2:END 

1990 ’Fuehrende Blanks und *:" weg 
RFELt AS DE 

2000 IF LEFT$(p$,1)=" "OR LEFT$(Cp$, 
1)=":"THEN p$=RIGHT$Cp$,LEN(p$) -1): 
GOTO 2000 

2010 RETURN 

2090 ’BASIC-Wort in Anf.-str. 
REM-Z.? 

2100 IF LEFT$CP$,1)="""OR LEFT$Cp$, 
3)="REM"THEN e1%=0 ELSE GOSUB 2200 
2110 RETURN 

2190 *’BASIC-WORT in Anf.-str.? 

2200 3%=0:FOR i%=1 TO zg% 

2210 IF MID$CpP$,i%, 1) =CHA$( 34) THEN 
3%=3%+1 

2220 NEXT i% 

2230 IF j%MOD 2=1 THEN e1%=0 ELSE e 
1%=—-1 

2240 RETURN 

2290 ’BASIC-Wort Teil einer Variabl 
en? 

2300 IF zg%=1 THEN 2320 

2310 hf%=ASC( MID$Cp$, zg%-1,1)) :GOSU 
B 2500:IF e2%=0 THEN 2340 

2320 IF zg%>LEN(p$)-LEN(q$) THEN 234 
D 

2330 hf%=ASC(MID$LpP$,zg%+LEN(g$) , 1) 
):GOSUB 2500 
2340 RETURN 
2390 ’Wo ist 
2400 hi$="1" 
2410 WHILE hi$<>" ":hi$=LEFT$(ez$, 1 
) :ez$=RIGHT$( ez$,LEN( ez$) -1) :WEND 
2420 RETURN 

2490 ’E: hf% A: e2 # e2=-1 -> hf% i 
st Nr. eines alphanum. Zeichens 
2500 IFChf%>=48 AND hf%<=57)0R hf%= 
46 OR(Chf%>=65 AND hf%<=90) OAChf%>=9 
7 AND hf%<=122) THEN e2%=0 ELSE e2%= 


oder 


Blaık nach Z.-Nr.? 


2510 RETURN 

’Druckoptionen-UP 

3000 x%=8B 

3010 PRINT t$:LOCATE 21,3:PRINT"**+ 
DRUCKERMENUE #u#" 


3020 LOCATE 5,6:PRINT"<E>: Entwurfs- 
druck/NLQ"” 

3030 LOCATE 5,7:PRINT"”<A>: Zeichens 
satz: ASCII/Schneider" 

3040 LOCATE 5,8:PRINT"<V>: Schriftd 
ichte: dicht/normal"” 

3050 LOCATE 5,9:PRINT”<H>: Hervorhe 
bung von Spruengen usw.” 

3060 LOCATE 5,10:PRINT"<Z>: Zeilena 


bstand normal/eng” 
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3070 LOCGATE 5,11:PRINT"<F>: 
rhoehe 11 oder 12 Zull"” 
3080 lLOCATE 5,24:PRINT"<ENTER>: 
ter <B>: Bildschirm 
<Q>: Abbruch";bt$ 
3090 LOCATE 45,6:IF t%THEN PRINT"(E 
ntwurfsdruck) "ELSE PRINT"(NLQ) 


Formula 


Wei 
statt Drucker 


3100 LOCATE 45,7:IF ze%THEN PRINT"( 

ASCII) "ELSE PRINT"(Schneider)* 
3110 LOCATE 45,8:IF dt%THEN PRINT"”( 

dicht) "ELSE PRINT"(normal)” 

3120 LOCATE 45,9:IF gf%THEN PRINT"( 

an) "ELSE PRINT"(aus)” 

3130 LOCATE 45,10:IF zI%XTHEN PRINT" 

(normal) "ELSE PRINT"(eng) *. 

3140 LOCATE 45,11:IF zwoelf%THEN PR 
INT"( 12)"ELSE PRINT"”( 11)” 

3150 GOSUB 5000:0N INSTRA( drusteu$,e 

$)GOTO 3160,3170,3180, 3190, 3200, 322 

0,3230, 3240,200:60T0 3150 

3160 t%=NOT t%:GOTO 3090 

3170 ze%=NOT ze%:GOTO 3090 

3180 dt%=NOT dt%:GOTO 3090 

3190 gf%=NOT gf%:GOTO 3090 

3200 IF zIXTHEN z1%=0 ELSE z1%=-1 

3210 GOTO 3090 

3220 x%=0:G0TO 3300 

3230 zwoelf%=NOT zwoelf%:G0OTO 3090 

3240 GOSUB 4030 

3250 LOCATE 5,13:PRINT CHR$( 20) ;"Ze 
ilenbreite ( <ENTER>="; :PRINT USING” 

#44" ,br%, :PRINT"): ";:INPUT"",i%: IF 
i%<>0 THEN br%=MAX( MIN( i%, 132) ,30) 
3260 LOCATE 32,13:PRINT br%;CHR$( 18 
) 

3270 LOCATE 5,15:PRINT"Alles o.k. u 
nd Drucker bereit (<j/n>)?";CHR$( 18 

);bt$; :GOSUB 5000:IF e$<>"3J"THEN 30 

00 

3280 IF INP(&6F500)=90 THEN LOCATE 5 
‚15:PRINT"Bitte Drucker einschalten 
und <ENTER> druecken (<Q>: Abbruch 
)";CHR$( 7) ;CHRA$( 18) :GOSUB 5000:IF e 

$="q”" THEN 200 ELSE GOTO 3280 

3290 PRINTAx%,st$; 

3300 RETURN 

3390 ’A: zg% * Anfang erstes echtes 
BASIC-Wort (wort$) 

3400 bzg%=zg%: zg%=1 

3410 zg%=-INSTRA( zg%+1,e2$,wort$) 

3420 IF 7g%>=bzg%0OR zg%-=0 THEN zg%= 

bzg%:GOTO 3440 ELSE p$-=-ez$:q$=-wort$ 
:G605UB 2100 

3430 GOSUB 2300: IF NOT(e1I%AND e2%)T 

HEN 3410 

3440 RETURN 

3490 ’Druck 

3500 IF if1%AND NOT sSf%THEN sf%=--1: 


3510 ’LZ:Leerzeile. ifl- -1:L2 
ruck?. sf=--1:letzte Zeile L2?. 
:LZ nach Druck? 

35?0 GOSUR 3700 

3530: IF tf%AND NOT sf%THEN sf%=--1:G 
0OSUB 4300 

3540 if1%-0::f%=0 

3550 RETURN 

3590 ’Fuellen von mz$ aus ez$ 

3600 mz$=LEFT$(ez$, zg%-1) :ez$=-RIGHT 
$lez$,LEN(ez$) -zg%+1) :p$=ez$:GOSUB 
2000:e2z$=-p$:p$:=m2$:GOSUB 2000:m2$=p 
$ 

3610 IF LEN(ez$)<=1 THEN mz$=mz$+tez 
$:ez$="" 

3620 RETURN 


vor D 
tf=-1 


3690 ’UP zu Druck: Teilen von lange 
n mz$ 

3700 IF LEN(mz$)=0O THEN 3860 

3710 IF rf%THEN rz%=4:remli$="* ":r 
emre$=" *"ELSE rz%=-0:remli$="":remr 
e$g="" 

3720 IF LEN(mz$) >br%-a%-1-rz%THEN 3 
750 


3730 PRINT#x%,TAB( a%) ;remli$;mz$;re 

mre$; :IF LEN(mz$) =br%-a%-1-rz%THEN 

GOSUB 4310 ELSE GOSUB 4300 

3740 GOTO 3850 

3750 vorspann$=LEFT$(Lmz$,br%-a%-1-r 

2%) :mz$=RIGHT$(mz$,LEN(mz$) -br%ta%+ 
1+r2%) 

3760 PRINT#x%,TAB( a%) ;remli$; vorspa 

nn$; remre$; :G0OSUB 4310 

3770 i%=LEN(mz$) 

3780 WHILE i%>br%-a%-6-rz%\2 

3790 PRINT#x%,TAB( a%) ;remli$; :PAINT 

#x%, TAB( a%+2) ;uel$( x%\8) ; :PRINT#x%, 

TAB( a%+5) ;LEFT$(mz$, br%-a%-6-rz%\2) 
;:IF rf%THEN PRINT#x%, TAB( br%-3+x%\ 

8) ;remre$; 

3800 GOSUB 4310 

3810 mz$=RIGHT$(mz$,LEN(mz$) -br%+a% 

+6+r2%\2) :i%=LEN( mz$) 

3820 WEND 

3830 IF i%=0 THEN 3850 ELSE PRINT#x 

%, TAB( a%) ;remli$; :PRINT#x%, TAB( a%+2 

) ;uel$( x%\8) ; :PRINT#x%, TAB( a%+5) ;mz 

$;:IF rf%THEN PRINT#x%, TAB br%-3+x% 

\8);remre$; 

3840 GOSUB 4300 

3850 sf%=-0 

3860 RETURN 

339UZZUR3Zz u: le 

7 

4000 p$=LEFT$(mz$, 1) 

4010 IF ASC(p$) >=48 AND ASC(p$) <=57 
THEN z3a%=-1 ELSE za%=0 

4020 RETURN 

4030 st$=-"" 


Stelle von mz$ Zahl 


4040 IF tXTHEN st$=st$+entw$ELSE st 39 
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if1%-0:605UB 4300 


| - LISTING | 


$=st$+nlq$ 

4050 IF zIXTHEN st$=st$+normal$ELSE 
st$=st$+teng$ 

4060 IF ze%THEN st$=st$+asci$ELSE s 
t$=st$+asciaus$ 

4070 IF dt%THEN st$=st$+compr$ELSE 
st$=st$+compraus$ 

4080 IF zwoelf%THEN st$=st$+zwoe$:z 

m%=zma% ELSE st$=st$+elf$:zm%=INT( z 

ma%*11/12) 

4090 IF zIXTHEN zm%=INT( zm%#3/4) 

4100 RETURN 

4190 ’UP zu: 

n von REM... 


Aufbereiten und Drucke 


4200 3j%=MIN( br%-a%-1,LEN(mz$) +4) :PR 


INT#x%, TAB( a%) ;STAING$( 5%, "*") ; :G05 
UB 4310:605UB 3500:PRINT#x%,TAB( a%) 
;STRING$( 3%, "*") ;:GOSUB 4300: RETURN 


4290 ’Zeilenzaehlen, Seitenumbruch 

4300 PRINT#x% 

4310 IF x%=0 THEN 4320 ELSE z%=z%+1 
4320 RETURN 

4390 ’Seitenkopf 

4400 IF x%=0 THEN PRINT#x%, name1$EL 


SE PRINT#x%,name1$;” - Seite” ;s%:PR 
INT#x%: PRINT#x%, STAING$( br%, "*") :PRA 
INT#Ax%: s%=s%+1 

4410 RETURN 

4490 ’Naechste Seite? 

4500 IF z%>zm%THEN PRINT#x%:PRINT#Ax 

%, TAB(br%-29) ;"Zeilennr.: ";CHR$( 27 
) ;CHR$( 71) ; USING" AHHHHH" ;izi; : PRINT 
Hr%,” -— "ZUSING"AHHHHH” ; zn! :PRINTAx 
%, CHR$( 27) ; CHR$( 72) ;vorschub$:GOSUB 
4400:1d%=0:z%=0 

4510 RETURN 

4590 ’Quit setzen 

4600 IF LOWER$( INKEY$) ="q"THEN quit 
%=-1 
4610 RETURN 

4690 ’NEXT,,,, aufteilen 

4700 i%=INSTA(mz$,”","):IF i%>O THEN 
ez$="NEXT "+MID$(mz$,i%+1) +tez$:mz$ 
=LEFT$LmMZ$,i%-1) 

4710 RETURN 

4990 ’CLEAR INPUT und WAITKEY$ 

5000 WHILE INKEY$<>"":WEND:e$="":WH 
ILE e$="":e$=INKEY$:WEND : e$=LOWER$( 

e$) :RETURN 


Fortsetzung von Seite 62 


unterdrücken. Mit Zeilenabstand (eng/normal) wählt 
man zwischen einem Zeilenabstand von 1/8°' und 
1/6‘. Eine Formularhöhe von 11 Zoll sollte man 
einstellen, wenn man Einzelpapier benutzt. Anson- 
sten ist 12 Zoll die geeignete Formularhöhe. 


B. Sonstige Einstellungen 

Antwortet man auf “Kopfzeile=Dateiname (j/n)?“ 
nicht mit <N>, wird als Kopfzeile für die Seiten des 
Listingausdrucks der Dateiname genommen. Anson- 
sten kann man eine eigene Titelzeile eingeben. Es 


10 MODE 2 

20 FOR i=1 TO 10 

30 LOCATE i,i:PRINT "Jojo" 
40 NEXT i 

50 y=-1 

60 FOR i=25 TO 15 STEP -1 
70 y=-y+1 

80 LOCATE y,i 
90 NEXT i 
LOCATE 35, 12:PRINT"Nochmal 3/n" 


:PRINT "Jojo" 


a$=INKEY$ 

IF a$="" THEN GOTO 100 
IF a$="j" THEN GOTO 10 
140 CLS:LOCATE 30, 12:PRINT” 
hab ich meine Ruhe”:FOR i= 
O:NEXT i:CALL &BB18:END 


Endlich 
I TO 200 


TEST - Seite 1 


KRERKKKKRKRRRRKKRAKN RN RARTRRNRR TR NRR 


10 MODE 2 
30 
FOR is1_TO 10 
20  LOCA 
ERINT "Jojo" 
40 NEXT i 
45 y=1 
07 
FOR i=25 TO 15 STEP - 
5 
BE vayıs 
20  LokAte Yai 
PRINT "Jojo" 
70 NEXT i 


80 LOCATE 35,13 
e FRINT"Nochmal J3/n"yas 
(. 


af=INEEYF 
IF af=!"" 
THEN 
GOTO 80 
1 10 IF 9 Soon j 


- HEN 
GOTO 10 


"Ruhe" 


meine 


FOR i=1 TO 
NEXT i 

EALL 2BB1B 
END 


EIG 


ist sehr praktisch, wenn Sie in der Kopfzeile Datum 
und Versionsnummer Ihres Programmes aufnehmen. 
Hinweise für Kassettenbenutzer: 

Wenn Sie kein Diskettenlaufwerk besitzen, müssen 
Sie den TAPE- und den DISC-Befehl am Anfang des 
Listings weglassen. Außerdem ist für Sie die Option 
CATALOG wenig interessant; Sie sollten sie daher 
nicht anwählen. (JE) 


_—  LISTING 


BR: hneiger 
| aktiv 


CHEMIE 


Wer hatte nicht schon in der Schule, in der Ausbil- 
dung zum Laboranten oder im Studium Probleme mit 
der Lösung chemischer Aufgaben gehabt? Damit ist 
es jetzt vorbei, denn unser Autor Alf Dengler hat ein 
Programm für alle CPCs geschrieben, das Ihnen diese 
Berechnungen abnimmt. Es stellt im Bereich der Che- 
mie für verschiedene, immer wieder auftretende Be- 


rechnungen entsprechende Hilfsdienste zur Verfügung. 


So verfügt das Programm über eine bequeme Summen- 
formeleingaben, Berechnungsmöglichkeiten für Mol- 
massen, Elementarzusammensetzung von Verbindun- 
gen und vieles: mehr. Die notwendigen Daten dazu 
sind am Ende des Programmes enthalten. Da das 
Listing im Bausteinprinzip aufgebaut ist, besteht 
leicht die Möglichkeit einer Erweiterung durch Unter- 

rogramme. 

as Programm ist voll menügesteuert und leicht zu 
handhaben. Die Optionen werden ständig angezeigt. 
Nach dem Bildschirmaufbau zeigt oben links ein klei- 
nes Fenster den jeweiligen Zustand des Rechners an: 
Durch A wird angezeigt, daß der CPC gerade arbeitet 
und keine Eingaben akzeptiert, B signalisiert, daß er 
auf Eingaben wartet. 
Das Menü wählen Sie durch Druck auf die Taste M 
an. Es bleibt so lange sichtbar, bis Sie es durch L wie- 
der löschen. Das Dialogfenster können Sie durch 
Drücken der Taste D löschen. 
Die Variable IEZ gibt an, daß das Programm 103 Ele- 
‚mente berücksichtigt. Die Variable IEZ2 gibt an, wie- 
viel Elemente maximal gleichzeitig behandelt werden 
sollen. Benötigt man zum Beispiel nie mehr als 20 
Elemente gleichzeitig, so erreicht man durch eine ent- 
sprechend kleinere Dimensionierung knapp 2K Spei- 
cherplatzerweiterung, die dann für eigene Erweiterun- 
gen zur Verfügung stehen. Das Programm ordnet bei 
Ausgaben die Elemente in den Summenformeln so, 
wie dies in der chemischen Literatur (Chemical 
Abstracts) üblich ist. 


Schnelle Eingabe und leichte Bedienung 


Es stehen folgende Optionen zur Verfügung: 


Taste "L‘: 
Menüfenster löschen 


Taste ''D’: 
Dialogfenster löschen 


Taste '’E’: 

Erlaubt über Elementsymbole die Eingabe von Ele- 
menten und der zugehörigen Anzahl der Atome. 
Schon definierte Elemente bleiben erhalten, soweit 
sie nicht neu definiert werden. Das Nullsetzen der 
Elemente ist vorher mit ““N“ möglich. 


Taste ”S": 
Erlaubt eine Schnelleingabe von Summenformeln. 
Auch hier bleiben schon definierte Elemente erhal- 


ten. Ein Tip zur Eingabe: Als Formelendezeichen 
müssen Sie zweimal “XX‘““ eingeben. Ist in einer For- 
mel ein Element nur einmal enthalten, so geben Sie 
dann bitte eine “1“ ein. Beispiel: Schwefelsäure 
müssen Sie so eingeben: H2S104XX. 


Taste ‘'B‘: 
Berechnen der Molmasse der im Rechner gespeicher- 
ten Summenformel. 


Taste ’'C": 

Die Elementarzusammensetzung der jeweiligen Ver- 
bindung wird berechnet. Ausgegeben wird die Sum- 
menformel, Molmasse und die berechneten Analyse- 
daten (Elemente und deren prozentualer Anteil an 
der Verbindung). 


Taste U“: 

Chemische Analyse einer Verbindung (d.h. Elemente 
und deren prozentualer Anteilan der Verbindung 
mit Angabe des berechneten Atomverhältnisses der 
zugehörigen Summenformel). 


Taste ’’H“: 

Diese Option beinhaltet drei Möglichkeiten von 
Molaritätsberechnungen, welche als Untermenü im 
Dialogfenster eingeblendet werden. 

1. Möglichkeit: Eingabe in Gramm einer Verbindung 
sowie deren Summenformel. Ausgegeben wird die 
Summenformel, die Molmasse sowie die Anzahl der 
Mole, die der Masse entsprechen. 

2. Möglichkeit: Eingabe von Molzahl und Summen- 
formel. Berechnet werden Molmasse und Masse der 
Verbindung. 

3. Möglichkeit: Eingabe der Summenformel der Ver- 
bindung, gewünschte Lösungsmenge und Konzentra- 
tion. Angezeigt wird dann die Einwaage der Substanz 
in Gramm. 


Taste ''V“: 

Bei dieser Option haben Sie drei Möglichkeiten von 
Verdünnungsberechnungen: 

1. Eingabe: Volumen, Konzentration (mol/Liter) so- 
wie gewünschte Konzentration. Berechnet wird das 
Volumen, auf welches die Lösung aufzufüllen ist. 

2. Eingabe der Konzentration einer Stammlösung, 
gewünschte Lösungsmenge und deren Konzentration. 
Berechnet wird die benötigte Stammlösung. 

3. Eingabe des Volumens, der Konzentration und des 
Endvolumens. Ausgegeben wird die Konzentration 
der Endlösung. 


Taste N’: 
Alle gespeicherten Elemente werden gelöscht, d.h., 
deren Atomzahl wird auf Null gesetzt. 
Taste "A": 
Beenden des Programmlaufes. Das Programm bleibt 
jedoch noch im Speicher. Es kann dann wieder neu 
gestartet werden. 

(JE) 


CHEMIE 
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LISTING 


100 rrHHHRHRHSIHHHHIHIHIHIHNESESSESE NEN 
110 ** CHEMIE * 
120 ’# VON * 
130 ’# ALF DENGLER * 
140 ’* FUER * 
150 ’* SCHNEIDER AKTIV * 
160 ’* CPC 464/664/6128B je* 
170. RR HIHI III 
180 

190 RR SENSE S SEIEN 


195 ’HAUPTPROGRAMM: WINDOWS, DIMENS 
IONIERUNGEN UND BILDAUFBAU 

198 RER III UI HIN 
200 CLEAR:MODE 2:CLS 

210 WINDOW#1,2,52,6,24:WINDOW#2,54, 
79,6,24:WINDOW#3, 16,52,6,10 

220 WINDOW#4,2,52,11,24:WINDOWfS, 13 
‚5?,8,22 

230 IEZ=103: IEZ2=103: 6FSUCH=10 

240 DIM MASSE( IEZ) ‚RMASSE( IEZ) ,SYMB 
OLE$CIEZ) 

260 DIM IKON( IEZ2) ‚IELWAHL( IEZ2) ‚CA 
1( IEZ) ‚CA2( IEZ) 

270 DIM NOMEN( IEZ2) ‚ANA( IEZ2) ‚CHAN( 
IEZ) ‚SUFORM( SFSUCH) 

280 LOCATE 15,3:PRINT "LOESEN CHEMI 
SCHER PROBLEME":LOCATE 62,3:PAINT"M 
ENUE (M)" 

290 ‚PLOT 1,1:DRAW 638, 1:DRAW 638,39 
8:DRAW 1,398:DRAW 1,1 

300 PLOT 1,330:DRAW 638,330:PLOT 42 
0,1:DRAW 420,398 

310 PLOT 20,330:DRAW 20,398:LOCATE 
2,3:PRINT"A” 

320 GOSUB 500:AEM EINLESEN DES DATE 
NSATZES! 

330 GOSUB 800:REM 
340 END 

SDO "FRHHEHEEEHEHEHER HEHE 


505 ” EINLESEN DES DATENSATZESI 
[Ja]: Wu <= 2 2 2 22 2 20202 2 2 22 2022222202022 220205 


TASTATURABFRAGE I 


520 FOR I=-1 TO IEZ:READ RMASSE(I):N 

EXT I 

530 FOR I-1 TO IEZ:READ 5YMBOLE$(I) 
:NEXT I 

650 FOR I-1 TO IEZ:READ CAI(I) :NEXT 
I 

660 FOR I=-1 TO 14:CA2( I)=CAI(I+2):N 

EXT I 

670 FOR I-16 TO 36:CA2( I)=CAI(I+1): 

NEXT I 

680 FOR I=-38 TO IEZ:CA2(I)=CAICT):N 
FXT I 

690 CA2LC 15) =CAIL 1) :CA2( 37) =CA1( 2) 


700 
A0O 
805 
808 
810 
A2O 


RETURN 

2.2 = 2 2 2 2.222 2 2.222 2 22 2 2 
*%* TASTATURABFRAGE! * 
22 22 22.2 2/22 22 2722222203 
LOCATE ?,3:PRINT”B"” 


JE INKEYL3B8)=-D THEN GOSUB 1000: 


REM ME.NUEI 

830 IF INKEY(58)=D THEN CALL EBB03: 
GOSUB 2800:CL5#1:REM ELEMENTEINGABE 
! 


840 IF INKEY(69)=-O THEN CALL 68BB03: 
CLEAR:END:REM PROGRAMMENDE I 

850 IF INKEY(36)=0 THEN CLS#2:REM M 
ENUEFENSTER LOESCHEN! 

870 IF INKEY(60)=-0O THEN CALL 86BB03: 
GOSUB 4200:REM SUMMENFORMELEINGABE ! 
880 IF INKEY(61)=O THEN CALL &BB03: 
CLS#1:REM DIALOGFENSTER LOESCHEN! 
890 IF INKEY(46)=0O THEN CALL &BBO3: 
G0SUB 1500:REM ELEMENTE NULLSETZEN! 
900 IF INKEY(54)=0 THEN CALL &BB03: 
G0OSUB 1700:REM MOLMASSE BERECHNEN! 
910 IF INKEY(62)=0O THEN CALL &6BB03: 
G60SUB 1800:REM CHEMISCHE ANALYSE! 
920 IF INKEY(42)=0O THEN CALL &BB03: 
GOSUB 3300:REM CHEM. ANALYSE->SUMM. 
FORMEI.! 

930 IF INKEY(44)=DO THEN CALL &BBO3: 
GOSUB 4600:REM MOLARITAETSBERECHNUN 
GEN! 

935 IF INKEY(55)=-0 THEN CALL 8&BB03: 
GOSUB 5100:REM VERDUENNUNGSBERECHNU 
NGEN! 

940 GOTO 820 

950 RETURN 

1000 "Hrn 

1005 ’# MENUE! * 

1008 ’#HreaeerueH 


1010 LOCATE 2,3:PRINT ”A” 


1020 LOCATE 55,6:PRINT N"MENUEFENST 
ER LOESCHEN (L)" 

1030 LOCATE 55,7:PRINT N"DIALOGFENS 
T. LOESCHEN (D)” 

1040 LOCATE 55,9:PRINT "ELEMENTEIN 
GABE tE}” 

1050 LOCATE 55, 10:PRINT "SUMMENFORM 
ELEINGABE (5)" 

1060 LOCATE 55, 12:PRINT "”MOLMASSE B 
ERECHNEN (8)” 

1080 LOCATE 55, 14:PRINT "CHEMISCHE 
ANALYSE (c)" 

1090 LOCATE 55, 15:PAINT "CHEM. ANAL 
YSE->5UMM.F.(U)” 

1100 LOCATE 55, 17:PRINT "MOLARITAET 
SBERECHN. CH)” 

1105 LOCATE 55, 18:PRINT "VERDUENNUN 
GSBERECHN. (V)” 

1110 LOCATE 55,20:PRINT "ELEMENTE N 
ULLSETZEN (N)” 

1120 LOCATE 55,22:PRINT "PROGRAMM B 
EENDEN (A)” 


1130 LOCATE 
1140 RETURN 
1200 Heuer 
1205 ’ORDNEN DER SUMMENFORMEL NACH 
CHEMICAL ABSTRACTSI 


2,3:PARINT "B" 


LLLLL———————————————————————————————— 


LISTING 


a 2 222222 2.202 2 2.2.22 2 22.2222 22.2222 
1210 LOCATE 2,3:PRINT "A" 
1220 A$=-"ZWEI”:B$="ZWEI” 
1230 FOR I=-1 TO IEZ2:NOMEN( I) =O:NEX 


1240 FOR I=1 TO IELZAHL 

1250 IF IELWAHL(I)=6 AND IKON( IELWA 
HL{EI))J)>O THEN A$="EINS" 

1260 IF IELWAHL(I)=1 AND IKON( IELWA 
HL(I))>DO THEN B$="EINS" 

1270 NEXT I 

1280 IF A$<>"EINS” OR B$<>"EINS"” GO 
TO 1360 

1290 IZAHL=O 

1300 FOR I=1 TO IEZ 

1310 FOR J=1 TO IELZAHL 

1320 IF (CA1( I)=IELWAHL(J) AND IKON 
( IELWAHL( J))>O) THEN IZAHL=IZAHL+1:N 
OMEN( TZAHL) =J 

1330 NEXT J 

1340 NEXT I 

1350 GOTO 1430 

1360 IZAHL=O 

1370 FOR I=1 TO IEZ 

1380 FOR J=1 TO IELZAHL 

1390 IF (CA2( I)=IELWAHL(J) AND IKON 
( IELWAHL( J))>O) THEN IZAHL=IZAHL+1:N 
OMEN( IZAHI.) =J 

1400 NEXT J 

1410 NEXT I 

1420 LOCATE 2,3:PRINT "B" 

1430 RETURN , 

1500 rt HRS 

1505 ’* ELEMENTE NULLSETZENI # 

1508 RR 

1510 LOCATE.2,3:PRINT"A"” 

1520 IELZAHL=-O 

1530 FOR I=-1 TO IEZ 

1540 IKON( I) =0:CHAN( I) =0 

1550 NEXT I 

1550 GOSUB 3100:6056UB 1200 

1570 LOCATE 2,3:PRINT"B” 

1580 RETURN 

160 RRRRRRHHHHHRIHIRIHIE 
1605 ’BERECHNEN DER HOCHAUFGELOESTE 
N MOLMASSE RMASSI 

1608 Hrn 
1610 LOCATE 2,3:PRINT"A" 

1620 RMASS=DO 

1630 FOR I=1 TO IELZAHL 

1640 RMASS=RMASS+ IKON( IELWAHL( I)) *R 
MASSE( IELWAHL.(I)) 

15650 NEXT I 

1660 LOCATE 2,3:PRINT"B" 

1670 RETURN 

1700. Mr 
1705 ’AUSGABE DER HOCHAUFGEL.OESTEN 
MASSE! 

1708 HH 


1710 LOCATE 2,3:PRINT"A" 


1720 G0O5SUB 1600:REM BERECHNEN DER M 
DLMASSE ! 

1730 CLS#1:CL543:PRINT#1:PRINTAI,"S 
UMME.NFORMEL : " 

1740 PRINT#3:FOR I=1 TO IELZAHL:PRI 
NT#3,SYMBOLE$( TIELWAHL.( NOMEN( I))) ;IK 
ONE TELWAHL( NOMEN( I))) ;:NEXT I 
1750 PRINT#3:PRINT#3, "MOLMASSE : 

MASS 

1760 LOCATE 2,3:PRINT"B" 

1770 RETURN 

1800 3Earstaestäfase lt see lee le est she les 
1805 "BERECHNEN DER CHEMISCHEN ANAL 
YSE FUER DIE AKTUELLE SUMMENFORMEL! 
1808 "HR HrcHE HET 
1810 LOCATE 2,3:PRINT"A":CLS#1 

1820 FOR I=1 TO IEZ2:ANA( I) =0:NEXT 
I 

1830 GOSUB 1700:LOCATE 2,3:PRINT"A"” 
:REM BERECHNEN DER MOLMASSE! 

1840 FOR I=1 TO IELZAHL 

1850 AN=( IKON( IELWAHL( I) ) #AMASSE( IE 

LWAHL( I))) /AMASS 

1860 ANA( IELWAHL( I) ) =ROUND( AN*# 10000 
)/100 

1870 NEXT I 

1880 CLS#4 

1890 A1$="ELEMENT 

T-% ":A3$=" ":Aa$=" 
1900 ZONE 7? 

1910 PRINT#4:PRINT#4,"” 
BERECHNETE ANALYSENDATEN 
4 

1920 IH1=INT( IZAHL/5) : IH3=1 
1930 FOR I=-1 TO IH1I 

1940 IH4=1I*#5 

1950 PRINT#4,AA$+A1$;:FOR J=IH3 TO 
IH4:PRINT#4, A3$+5YMBOLE$( IELWAHL( NO 

MEN(J))),:NEXT J 

1960 PRINT#4,AA4$+A2$;:FOR J=IH3 TO 
IHA :PRINT#4,USING "HAHH.HH" ;ANACIEL 

WAHL( NOMEN( J))) ; :NEXT J:PRINT#4:PRI 

NT#A 

1970 IH3=IH4+1 

1980 NEXT I 

1990 IF IH3>IZAHL THEN LOCATE 2,3:P 

ARINT"B":RETURN 

2000 PRINT#4,AA4$+A1$;:FOR J=IH3 TO 
IZAHL :PRINT#4, A3$+5YMBOLE$( IELWAHL( 

NOMEN( J))) , :NEXT J:PRINT#4 

2010 PRINT#4,AA$+A2$; :FOR J=IH3 TO 
IZAHL :PRINT#4, USING "HAHH.HH" ;ANACIT 
EL.WAHL( NOMEN( J))) ; :NEXT J 

2020 LOCATE 2,3:PRINT "B" 

2030 RETURN 

2BOD ’FFHEEEEEEEEEHHEHHREH HER EEHERH 
2805 ’SUMMENFORMELEINGABE UEBER ELE 

MENTSYMBOLE! 

BOB "FREE 

2810 LOCATE 2,3:PRINT "A" 


"RA 


":A2$="GEWICH 


":PRINT# 


LISTING | 


2820 cı.5#1 

2830 LOCATE 17,8:PRINT " 

NGABE" 

2840 LOCATE 5,12:PRINT "GEZIELTE EI 

NGABE UEBER ELEMENTSYMBOLE" 

2850 LOCATE 5,15:PRINT "KEIN WEITER 

ES ELEMENT GEWUENSCHT: (XX) "; 

2860 INPUT ELSM$:ELSYM$-UPPER$(ELSM 

$) 

2870 IF (ELSYM$="XX")THEN CLS#1:608 

UB 3100:605UB 1200:L0CATE 2,3:PRINT 
"8" :RETURN 

2880 FOR I=1 TO IEZ 

2890 IF (SYMBOLE$(I)=ELSYM$) THEN I 

A=1:G0SUB 3000:60T0 2820 

2900 NEXT I 

2910 G0TO 2820 

2920 RETURN 

3000 73er ae sie 

3005 "EINGABE DER ATOMANZAHL PRO EL 

EMENT! 

3008 tar ara est EEE SEE IE EEE SE SEE EHE 

3010 LOCATE 5,17:PRINT "WIEVIELE AT 

OME DES ELEMENTS ";SYMBOLE$(IA);" W 

ERDEN" 

3020 LOCATE 5,18:INPUT " GEWUENSCHT 
";AT 

3030 IF (AT>=D AND AT<=1000) THEN IK 
ON( IA) =AT: IELZAHL=IELZAHL+1 ELSE GO 

TO 3010 

3040 RETURN 

3100 MHreararseiest tete tee tee EEE EEE 
3105 "SORTIEREN DER ELEMENTE DER SU 

MMENFORMEL AUF DEN VEKTOR IELWAHL I! 
3108 "FHHEHER HEHE HEHE HH 
3110 FOR I=1 TO IEZ:IELWAHL(I)=O:NE 
xt ı 

3120 IELZAHL-O 

3130 FOR I=1 TO IEZ 

3140 IF (IKON(I)>O)THEN IELZAHL=IEL 
ZAHL +1: IELWAHL.( IELZAHL) =I 

3150 NEXT I 

3160 FOR I=1 TO IELZAHL 

3170 IH=-IELWAHL(I) 

3180 FOR J=I TO IELZAHL 

3190 IF(MASBE( IELWAHL( J)) <-MASSE( IE 

LWAHL(I))) THEN TELWAHL( I) IELWAHL( 4 

) :TH2=J 

3200 NEXT J 

3210 TELWAHL( IH2) =IH 

3220 NEXT I 

3230 RETURN | 

3300 ’HHerer er reHHREHEENEERERRIH 
3305 "EINGABE EINER CHEMISCHEN ANAL 


YSE UND BERECHNUNG DER SUMMENFORMEL 
! 


3308 22 2 2 22 2 22 2 2 202 2.2 2.2 2.2.2.2 2.22.22 
3310 LOCATE 2,3:PRINT "A" 


3320 FOR I-1 TO IEZ:CHAN( IT) =0: IKON( 
TI)=0:NEXT I 


ELEMENTEI 


3330 CHANZ=D:ENDE$="XX" 
3340 CLS#1:LOCATE 8,8:PRINT "EINGAB 
E EINER CHEMISCHEN ANALYSE” 

3350 LOCATE 8, 12:PRINT "BEENDEN DER 
EINGABE MIT Xx” 

3360 LOCATE 7,15:PRINT "BEISPIEL: 
C37.02H2.22N18.5042.26XX" 
3370 LOCATE 5,16:PRINT" "*; 


’ 
3380 INPUT CHEMAN$ : CHEMAN$=UPPER$(C 
HEMAN$) 


3390 FORMLEN=LEN{ CHEMAN$) 

3400 JB=1:JL=0O 

3410 FOR I=1 TOD FORMLEN 

3420 IF MID$(ÜCHEMAN$, JB,2) =ENDE$ TH 
EN CLS#1:G0SUB 3700:605UB 1200:L0CA 
TE 2,3: PRINT"”B”:RETURN 

3430 ASCODE=ASC( MID$( CHEMAN$, JB, 1)) 
3440 IF (ASCODE>64 AND ASCODE<91) T 
HEN JL=JL+1 ELSE GOSUB 3500 

3450 JB=JB+1 

3460 NEXT I 

3470 GOTO 3340 

3480 RETURN 

3500 MRRHsHRBBRHRHRRHHHRHRH RN 
3505 ’ERMITTELN DES JEWEILIGEN ELEM 
ENTS UND DES %-ANTEILS AN DER VERBI 
NDUNG! 

3508 HR 
3510 IF (JL=0 OR JL>2) THEN JL=0:RE 
TURN 

3520 ELSYM$=MID$ÜCHEMAN$, JB-JL,JL) 
3530 FOR L=1 TO IEZ 

3540 IF SYMBOLE$(L)=-ELSYM$ THEN IA= 
L:60SUB 3570 :RETURN 

3550 NEXT L 

3560 RETURN 

3570 JA=JB:JL=D 

3580 AT=VAL( MID$( CHEMAN$, JB, FORMLEN 
-JB+1)) 

3590 IF (AT>=0 AND AT<=100) THEN CHA 
N( IA) =AT :CHANZ=CHANZ +1 

3600 RETURN 

3700 HRRRBRRSHRSRRHSHHRHORRHHRHHRNTN 
3705 ’UMRECHNEN DER CHEMISCHEN ANAL 


YSE IN DIE ENTSPRECHENDE SUMMENFORM 
Ei! 


3708 !RREHEHERCHEH EHE EHRE 
3710 PROSUM-O 

3720 FOR I=1 TO IEZ:PROSUM=PROSUM+C 

HAN( I) :NEXT I 

3730 PROSUM2=100-PROSUM 

3740 IF PROSUM=100 THEN GOTO 3790 

3750 IF PROSUM>100 THEN CLS5#1:PRINT 

#1:PRINTF1,” DIE GESAMTEINGABEN 
IN % BETRAGEN ";PROSUM;" %":PRINT# 
y5 IST DAS ERWUENSCHT (J/N)";: 

INPUT#1,82$:IF B2$="3" OR B2$="34" T 

HEN GOTO 3790 

3760 IF (PROSUM>100 AND (B2$-"N” OR 
B2$="n")) THEN CLS#1:PRINT#1:PRINT 
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LISTING 


#1:PRINT#I,” BITTE DIE EINGABE 

NEU BEGINNEN" :RETURN ELSE IF ( PROSU 

M>100 AND B2$<>"N” AND B2$<>"n")GOT 

0 3750 

3770 IF PROSUM<100 THEN PRINT#1:PRI 

NT#1,"SOLL DIE DIFFERENZ VON ";PROS 

UM2;" PROZENT ":PRINT#1:INPUT#1, "AL 

5 SAUERSTOFF ANGENOMMEN WERDEN (J/N 

)";BR$:IF BB$="J3" OR BB$="3j" THEN C 

HAN( 8) =CHAN( 8) +PAROSUM2:GOTO 3710 

3780 IF BB$<>"N" AND BB$<>"n" GOTO 

3770 

3790 FOR I=1 TO IEZ 

3800 IF CHAN( I)>O THEN IKON( I) =CHAN 

( I) /RMASSE( I) :KLEINZ=IKON( I) 

3810 NEXT I 

3820 FOR I=1 TO IEZ 

3830 IF (IKON(I)>O AND IKON(I)<KLEI 

NZ) THEN KLEINZ=IKON( I) 

3840 NEXT I 

3850 FOR I=1 TO IEZ 

3860 IF IKON(I)>O THEN IKON( I) =IKON 

(I) /KLEINZ 

3870 NEXT I 

3880 GOSUB 3100:G605UB 1200 

3890 CLS#5:CLS#1:PRINT#1," 
ATOMVERHAELTNIS DER ELEMENTE” 

3900 PRINT#1:PRINT#1:FOR I=1 TO IEL 

ZAHL :PRINT#S5, SYMBOLE$( IELWAHL( NOMEN 

(I))) ;AROUND( IKON( IELWAHL( NOMEN(I))) 

#100) /100; :NEXT I 

3910 FOR I=1 TO SFSUCH:SUFORM( I) =0: 

NEXT I 

3920 FOR I=1 TO SFSUCH 

3930 FOR J=1 TO IELZAHL 

3940 IHILF 1=ROUND( I#*IKON( IELWAHL( NO 

MEN(J)))) : THILF2=I#IKON( IELWAHL( NOM 

EN( J))) 

3950 SUFORM( T) -SUFORM( I) +ABS( IHILF 1 

-IHILF2) 

3960 NEXT J 

3970 NEXT I 

3980 SFFEHL=-SUFORM( 1) :SFNA=1 

3990 FOR I-2 TO SFSUCH 

4000 IF SUFORM( I)<SFFEHL THEN S6FNRA- 

I:SFFEHL=SUFORM( I) 

4010 NEXT I 

4020 PRINT#5:PRINT#5:PAINT#5:PRINT# 

5, "S5UMMENF ORMEL. VORSCHLAG" 

4030 PRINT#5:FOR I=-1 TO IELZAHL:PRI 

NT#5,SYMBOLE$( IELWAHL( NOMEN( I))) ;RO 

UND SFNA#IKON( IELWAHL( NOWEN( I))));: 

NEXT I 

4040 PRINT#5:PARINT#5:PRINT#5,"FEHLE 

RSUMME : ";SFFEHL 

4050 LOCATE 13,22:PRINT"SOLL DER 5U 

MMENFORMELVORSCHLAG " 

4060 LOCATE 13,23: INPUT "UEBERNOMME 

N WERDEN (J/N)"”;5UMF$ 

4070 IF SUMF$-"J3" OR SUMF$-"j" THEN 


FOR I=-1 TO TELZAHL : IKUON( TELWAHI.( NO 
MEN( I) )) =ROUND( SFNA#IKON( IELWAHL.( NO 
MEN{ I)))) :NEXT I:GOTO 4100 
4080 IF SUMF$<>"N” AND SUMF$<>"n" G 
0T0 4060 
4090 GNSUB 1500:REM ELEMENTE NULLSE 
TZEN! 

A100 LOCATE 2,3:PRINT"B” 
4110 RETURN 
A200 FRECHEN 


4205 ’STRINGEINGABE DER SUMMENFORME 
L! 


4208 Hure tt seh let 
4210 LOCATE 2,3:PRINT"A" :ENDE$="XX" 
4220 CL5#1 

4230 LOCATE 17,8:PRINT"SUMMENFORMEL 
EINGABE "” 

4240 LOCATE 14,12:PRINT"BEENDEN DER 
EINGABE MIT XxX" 

4250 LOCATE 17,14:PRINT"BEISPIEL:C2 

H601XX" 

4260 LOCATE 5,16:PRINT” "; 

4270 INPUT SFORM$ : SFORM$=UPPER$( SFO 

AM$) 

4280 FORMLEN=LEN( SFORM$) 

4290 JB=1:JL=0 

4300 FOR I=1 TO FORMLEN 

4310 IF MID$( SFORM$,JB,2)=ENDE$ THE 

N CLS#1:G0SUB 3100:605UB 1200:LOCAT 

E 2,3:PRINT"B" :RETUAN 

4320 ASCODE-ASC( MID$( SFORM$, JB, 1)) 

4330 IF (ASCODE>64 AND ASCODE<91) T 

HEN JL=JL+1 ELSE GOSUB 4400 

4340 JB=JB+1 

4350 NEXT I 

4360 GOTO 4220 

4370 RETURN 

4400 73er EHI IE 

4405 ’ERMITTELN DES JEWEILIGEN ELEM 

ENTS UND DER ZUGEHOERIGEN ATOMANZAH 

L! 

4408 

4410 

TURN 

4420 ELSYM$=MID$( SFORM$, JB-JL,JL) 

4430 FOR L=1 TO IEZ 

4440 IF SYMBOLE$(L)=ELSYM$ THEN IA= 

L:GOTO 4470 

4450 NEXT L 

4460 RETURN 

4470 JA=JB:JL=O 

4480 FOR K=1 TO FORMLEN-JB+1 

4490 ASCODE=-ASC( WID$( SFORM$, JA, 1)) 

4500 IF (ASCODE>47 AND ASCODE<58) T 

HEN JL=JL+1 ELSE AT=VAL( MID$( SFORM$ 
‚J8B,JL)) :GOTO 4540 

A510 JA=JA+1 

4520 NEXT K 

4530 AT=VAL(MID$( SFORM$,JB,JL)) 

4540 IF AT>O THEN IKON( IA) =AT:IELZA 


RARBRSSRRRHHRIRRIREIHRIEIESEIHIETENESETEN 
IF (JL=0 OR JL>2) THEN JL=0:RE 
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HL=IEI_ZAHL +1 

4550 JL=DO 

4560 RETURN 

A600 Erster 


4605 ’* MOLARITAETSBERECHNUNGEN! # 
4608 7 3rarseste ats IE SERIES 
4610 LOCATE 2,3:PRINT"A”:CLSAF1 

4620 LOCATE 5,8:PRINT"EINGABE: MASS 
E [G] UND SUMMENFORMEL 3}? 

4630 LOCATE 5,9:PRINT” DER 

VERBINDUNG" 

4640 LOCATE 5,10:PRINT"AUSGABE: MOL 
DER VERBINDUNG” 

4650 LDCATE 5,12:PRINT"EINGABE: MOL 
ZAHI. UND SUMMENFORMEL 2° 

4660 LOCATE 5,13:PRINT” DER 


VERBINDUNG" : 
4670 LOCATE 5,14:PRINT"AUSGABE: MAS 
SE [6] DER VERBINDUNG " 
4680 LOCATE 5,16:PRINT"EINGABE: GEW 
UENSCHTE LOESUNGSMENGE [ML] (3)” 


4690 LOCATE 5,17:PRINT” GEW 
UENSCHTE KONZENTR. [MOL/L]” 
4700 LOCATE 5,18:PRINT” SUM 


MENFORMEL DER VERBINDUNG” 

4710 LOCATE 5,19:PRINT"AUSGABE: EIN 

WAGE [6]” 

4720 LOCATE 5,21:INPUT "GEWUENSCHTE 
ROUTINE (KEINE=4) : ";MNR:MNA=INT( 

MNR) 

4730 IF MNA<1 OR MNA>3 THEN CLSf1:L 
OCATE 2,3:PRINT"B”:RETURN 

4740 ON MNR GOSUB 4800, 4900,5000 
4750 LOCATE 2,3:PRINT”B" 

4760 RETURN 

ABOO "FREE EEE EHER 
4805 ’UMRECHNUNG: MASSE [G]J -> MOL 

ABOB (Hr 
4810 CLS#1:LOCATE 10,8:PRINT"WIEVIE 

L. GRAMM DER VERBINDUNG" 

4820 LOCATE 10, 10:INPUT"LIEGEN VOR 
"- GRAMMIN 

4530 GOSUB 4200:REM EINGABE DER ENT 
SPRECHENDEN SUMMENFORMEL DER VERBIN 

DUNG! 

4840 GOSUB 1700:REM MOLMASSENBERECH 

NUNG MIT AUSGABE VON MOLMASSE UND F 

ORMEI.! 

4850 MOL.ZAHL =GRAMMIN/RMASS : MOLZAHL= 
INT( MOLZAHL*100000) / 100000 

AB60 LOCATE 6,13:PRINT GRAMMIN; "GRA 
MM ENTSPRECHEN ";MOLZAHL ; "MOL" 

4870 RETURN 

AIDO "HFERSERREEEHEHS HEHE EHE HH 
4905 ’UMRECHNUNG: MOL -> MASSE 

4908 FREUE HH 

4910 CLS#1:LOCATE 10,8:PRINT"”WIEVIE 

L MOL DER VERBINDUNG” 

49?0 LOCATE 10, 10:INPUT"LIEGEN VOR 
"-MOL.Z 


4930 GOSUB 4200:REM EINGABE DER ENT 
SPRECHENDEN SUMMENFORMEL. DER VERBIN 

DUNG! 

4940 GOSUB 1700:REM MOLMASSENBERECH 
NUNG MIT AUSGABE VON MOLMASSE UND F 
ORMEI.! 

4950 GRAMM=MOLZ#RMASS : GRAMM=INT( GRA 

MM=100000) / 100000 

4960 LOCATE 6,13:PRINT MOLZ;"MOL EN 
TSPRECHEN "; GRAMM; "GRAMM" 

4970 RETURN 

SOOO "Hr SEES 
5005 "BERECHNUNG: EINWAAGE [G] FUER 
EINE BEST. KONZENTRATION [MOL/L] U 
ND EINE GEWUENSCHTE LOESUNGSMENGE [ 
mi)! 

Din IBEREUHREEHHUCH EHER 
5010 CLS#1:L0OCATE 6,8: INPUT"GEWUENS 
CHTE KONZENTRATION [MOL/L]: ";MOLAR 
5020 LOCATE 6, 10: INPUT"GEWUENSCHTE 
.OESUNGSMENGE [ML]: ";LOESUNG 

5030 GOSUB 4200:REM EINGABE DER ENT 

SPRECHENDEN SUMMENFORMEL DER VERBIN 
DUNG! 

5040 GOSUB 1700:REM MOLMASSENBERECH 
NUNG MIT AUSGABE VON MOLMASSE UND F 
ORMEL ! 

5050 GRAMMEIN=MOLAR#RMASS#LOESUNG/ 1 
000 : GRAMME IN=INT( GAAMMEIN#100000) / 1 
00000 

5060 LOCATE 6,14:PRINT GRAMMEIN; "GR 
AMM AUF" ;L.OESUNG; "MILLILITER" 

5070 LOCATE 6,16:PRINT "” ERGEBEN EI 
NE” ;MOLAR;"- MOLARE LOESUNG" 

5080 RETURN 

5100 Heute eltern 
5110 ”* VERDUENNUNGSBERECHNUNGEN # 

s120 "write titel ee tete 


5130 LOCATE 2,3:PRINT”A”:CLS#1 


5140 LOCATE 5,8:PRINT"EINGABE: VOLU 

MEN [ML] (1)" 

5150 LOCATE 5,9:PRINT" KONZ 

ENTRATION [MOL/L]” 

5160 LOCATE 5,10:PRINT” GEW 

. KONZENTRATION [MOL/L]" 

5170 LOCATE 5,11:PAINT"AUSGABE: VOL 

UMEN, AUF WELCHES DIE "” 

5180 LOCATE 5,12:PRINT"” LOE 

SUNG AUFZUFUELLEN IST" 

5190 LOCATE 5,14:PRINT"EINGABE: KON 

ZENTRATION [MOL/L] (2)"” 

5200 LOCATE 5,15:PAINT"” GEW 

. KONZENTRATION [MOL/L]"” 

5210 LDCATE 5,16:PRINT" GEW 
LOESUNGSMENGE [ML]” 

5220 LOCATE 5,17:PRINT"AUSGABE: BEN 

DETIGTE STAMMLOESUNG [ML]"” 

5230 LOCATE 5,19:PRINT"EINGABE: VOL 

UMEN [ML] (3)" 

5240 LOCATE 5,20:PRINT"” KON 
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ZENTRATION [MOL/L]” 


5250 LOCATE 5,21:PRINT" END 
VOLUMEN [ML]J” 
5260 LOCATE 5,22:PRINT"AUSGABE: END 
KONZENTRATION" 
5270 LOCATE 5,24:INPUT "GEWUENSCHTE 


ROUTINE (KEINE=4) 

MNR) 

5280 IF MNR<1 OR MNA>3 THEN CLS#1:L 

OCATE 2,3:PAINT"”B":RETURN 

5290 ON MNR GOSUB 5400,5500,5600 

5300 LOCATE 2,3:PAINT"B" 

5310 RETURN 

SAOD HRHRUEEEEEHEHEEHEHUHET EHE HUHEH 

5410 ’VERDUENNUNGSRECHNUNGEN OPTION 
1 

SAD "FHREEEEEEEEEHHHCHEHEUHEHHHREH 

5430 CLS#1:LOCATE 6,8: INPUT"KONZENT 

RATION [MOL/L] : ";MOLAR 

5440 LOCATE 6, 10: INPUT"LOESUNGSMENG 

E [MLJ : ";LOES1 

5445 LOCATE 6, 12: INPUT"GEWUENSCHTE 

KONZENTRATION [MOL/L] : ";KONZ 

5450 LOESUNG=MOLAR#LOES1/KONZ :LOESU 

NG=INT( LOESUNG* 100000) / 100000 

5460 IF LOESUNG<LOESI THEN LOCATE 6 
‚15:PRINT"DIE LOESUNG MUESSTE AUF": 

LOCATE 5, 17:PRINT LOESUNG; "MILLILIT 

ER EINGEENGT WERDEN" :RETURN 

5480 LOCATE 6,15:PRINT "DIE LOESUNG 

AUF" ; LOESUNG; "MILLILITER 

LOCATE 6, 17:PRINT "AUFZUFUELLE 


";MNR:MNR=INT( 


RETURN 
I & 2 2 2 2 2 202.2 2022 202 20202 20222202022 02.2.02 


’VERDUENNUNGSRECHNUNGEN OPTION 


EEE TEE TE TEA EHE TEE EHE TEE TEE III EI 

5530 CLS#1:LOCATE 6,8: INPUT"KONZENT 

RATION [MOL/L] : ";MOLAR 

5540 LOCATE 6, 10: INPUT"GEWUENSCHTE 

KONZENTRATION [MOL/L] : ";KONZ 

5542 IF KONZ>MOLAR THEN LOCATE 6,15 
:PRINT"DA5S WUERDE EINE EINENGUNG DE 

R":LOCATE 6, 17:PAINT"STAMMLOESUNG E 

RFORDERN" :RE TURN 

5545 LOCATE 6, 12: INPUT"GEWUENSCHTE 

LOESUNGSMENGE [ML] : ";LOES1I 

5550 LOESUNG=KONZ/MOLAR#LOES1:LOESU 

NG=INT( LOESUNG*# 100000) / 100000 

5560 LOCATE 6, 15:PAINT "ES WERDEN”; 

LOESUNG; "MILLILITER" 
5570 LOCATE 6, 17:PRINT 

ESUNG BENOETIGT" 

5590 RE.TURN 

5600 RR HIHI IHREN 
5610 ’VERDUENNUNGSRECHNUNGEN OPTION 
3 

5620 
5630 


"DER STAMMLO 


ide 22 2 22 22 2222022 2 222 2 22222 2 2 22 
ECLS#1:LOCATE 6,8: INPUT"KONZENT 


RATION [MOL/L] : ";MOLAR 

5640 LOCATE 6, 10: INPUT "1.OESUNGSMENG 
E [ML] : ";LOESI 

5650 LOCATE 6, 12: INPUT"ENDVOLUMEN [ 
ML] "LOESUNG 

5660 KONZ=MOLAR#LOES1/LOESUNG :KONZ= 
INT KONZ# 100000) / 100000 

5670 LOCATE 6,15:PAINT "DIE ENDLOES 
UNG HAT EINE KONZENTRATION" 

5680 LOCATE 6, 17:PAINT "VON" ;KONZ;" 
LMOL/L]I" 

5690 RETURN 

8000 seen 

8002 *’* DATENSATZ * 

8003 "#eaeeeeneneen 

8085 REM HOCHAUFGELOESTE MASSEN! 
8090 DATA 1.0079,4.00260,6.941,9.01 
218, 10.81 

8100 DATA 12.011,14.0067, 15.9994, 18 
.998403, 20.179 

8110 DATA 22.98977,24.305,26.98154, 
28.0855, 30.97376 

8120 DATA 32.06,35.453,39.948,39.09 
83,40.08 

8130 DATA 44.9559,47.90,50.9414,51. 
996,54.9380 


8140 DATA 55.847,58.9332,58.70,63.5 
46,65.38 

8150 DATA 69.72,72.59,74.9216,78.96 
‚79.904, 

8160 DATA 83.80,85.4678,87.62,88.90 
59,91.22 

8170 DATA 92.9064,95.94,97.0, 101.07 
‚102.9055 ; 

8180 DATA 106.4, 107.868,112.41,114. 
82,118.69 

8190 DATA 121.75, 127.60, 126.9045, 13 


1.30, 132.9054 

8200 DATA 137.33, 138.9055,140.12,14 
0.9077, 144.24 

8210 DATA 145.0,150.4,151.96, 157.25 
‚158.9254 

8220 DATA 162.50, 164.9304, 167.26, 16 
8.9342, 173.04 

8230 DATA 174.97,178.49,180.9479,18 
3.85, 186.207 

8240 DATA 190.2,192.22,195.09, 196.9 
665,200.59 

8250 DATA 204.37,207.2,208.9804,209 
.0,210.0 

8260 DATA 222.0,223.0,226.0254,227. 
0278,232.0381 


8270 DATA 231.0359,238.029,237.0482 
‚244.0,243.0 

8280 DATA 247.0,247.0,251.0,254.0,2 
57.0 

8290 DATA 258.0,259.0,260.0 

8305 REM ELEMENTSYMBOLE! 

8310 DATA H,HE,LI,BE,B,C,N,O,F,NE 

8320 DATA NA,MG,AL,SI,P,S,CL.AR,K ‚c» 


73 


LISTING | 


A 

8330 DATA SC,TI,V,CA,MN,FE,CO,NI,CU 
‚ZN 

8340 DATA GA,GE,AS,SE,BR,KR,RB,SR,Y 
ZA 

’ 

8350 DATA NB,MO,TC,RU,RH,PD,AG,CD,I 
N,SN 

8360 DATA 5B,TE,I,XE,C5,BA,LA,CE,PR 
ND 

’ 

8370 DATA PM,SM,EU,GD,TB,DY,HO,ER,T 

M,YB 

8380 DATA LU,HF,TA,W,RE,08,IA,PT,AU 
‚HG 

8390 DATA TL,PB,BI,PO,AT,RN,FA,RA,A 
C,TH 

8400 DATA PA,U,NP,PU,AM,CM,BK,CF,ES 
‚FM 

8410 DATA MD,NO,LR 

8915 REM ELEMENTREIHENFOLGE FUER KO 

HLENWASSERSTOFFE NACH CHEMICAL ABST 
RACTS! 

8920 DATA 6,1,89,47,13,95,18,33,85, 

79,5,56,4,83,97,35,20,48,58,98 

8930 DATA 17,96,27,24,55,29,66,68,9 


SCHNEIDER aktiv 


HOTLINE 
Montags 


9,63,9,26, 100,87,31,64,32,2,80,72 15.00 ze 19,00 Uhr 
8940 DATA 67,53,49,77,19,36,57,3,10 ! ' 


Tel: 089/18 40 24 


3,71,101,12,25,42,7,11,41,60,10,28 
8950 DATA 102,93,8,76,15,91,82,46,6 
1,84,59,78,94,88,37,75,45,86,44, 16 
8960 DATA 51,21,34,14,62,50,38,73,6 
5,43,52,90,22,81,69,92,23,74,54,39 
8970 DATA 70,30,40 


LÖSEN CHEMISCHER 
PROBLEME 


MENÜFENSTER LÖSCHEN  (L) 
DIALOGFENST. LÖSCHEN (D) 


SUMMENFORMEL: 
H204S1 
MOLMASSE: 98,0734 


SCHNEIDER AKTIV 
MAILBON 
Tel: 089 / 18 39 91 
Parameter 8 N 1 
24 Stunden Online! 


ELEMENTEINGABE (E) 
SUMMENFORMELEINGABE (S) 


BERECHNET ANALYSEN- 
DATEN 


ELEMENT H 0 Ss 
GEWICHT-% 2.06 65,25 32,69 


MOLMASSE BERECHNEN (B) 


e 


CHEMISCHE ANALYSE (©) 
CHEM. ANALYSE-SUMM.F. (U) 


MOLARITÄTSBERECHNG. 
VERDÜNNUNGSBERECHN. 


(H) 
(v) 


ELEMENTE NULLSETZEN (N) 


PROGRAMM BEENDEN (A) 


SERIE 


MASCHINEN-SPRACHE 
LEICHT GEMACHT 


Eigentlich war für dieses Heft ein anderes 
Thema vorgesehen, aber wir versuchen eben das zu 
bringen, was Leser interessiert und deshalb wurde der 
andere Beitrag, bei dem es um die Nutzung der 
zweiten Speicherbank beim CPC 6128 geht, 
kurzerhand verschoben. 


Immer wieder erreichen 
uns Anfragen, wie denn 
beim CPC 464 Zeichen 
direkt vom Bildschirm ge- 
lesen und in ein Programm 
übernommen werden kön- 
nen. 

Obwohl ich dies in ver- 
schiedenen Veröffentli- 
chungen (und in ver- 
schiedensten Versionen) 
bereits geschrieben habe, 
reicht es anscheinend 
immer noch nicht aus. 
Deshalb soll diesmal die- 
ses Thema Gegenstand 
der Programmierung in 
Maschinensprache sein. 


NICHT NUR FÜR 
464-BESITZER 
INTERESSANT 


Die Besitzer von CPC 664 


und 6128 können die 
kleinen Assembler-Routi- 
nen ebenfalls übernehmen 
und sind damit sicher, 
daß das Lesen von ASCII- 
Zeichen auf dem Bild- 
schirm von allen drei 
CPC-Typen verstanden 
wird. 

Warum soll eigentlich ein 
Zeichen vom Bildschirm 
gelesen werden? Es gibt 
viele Gründe hierfür. Ein 
paar wenige sollen nun 
aufgeführt werden. Bei 
komfortablen Dateiver- 
waltungsprogrammen wer- 
den die Einträge nicht in 
Stringvariable übernom- 
men, sondern direkt vom 
Bildschirm in den Daten- 
speicherbereich eingelesen 
und umgekehrt. 

Auch eine Texthardcopy 
läßt sich durch Lesen von 
Bildschirmzeichen ganz 
einfach realisieren. Bei ei- 
ner Textverarbeitung kön- 
nen Bildausschnitte sehr 
schnell in einen dafür vor- 


kann derjenige, der ei- 
nen Assembler besitzt, 
die kleinen Routinen, die 
wir veröffentlichen, jeder- 
zeit mittels eines Assem- 
blers miteinander verbin- 
den und dann für seine 


188 ’ Beispiel fuer die erste Variante 
118 ’° des Lesens von Bildschirmzeichen 


128: 
138 MEMORY EIFFF 
148 


158 ’ 
168 ’ 
178 
188 
198 
288 


CALL EAB8®8 
END 
SASSEMBLE 
'org 53080808 
"call &bb6® 
"push af 
"call Ebb5a 
'pop af 
"call Ebb5a 
'ret 

RETURN 


210 
2208 
238 
248 


GOSUB 388: REM Maxam-Besitzer koennen 
anstelle von Gosub 288 
Gosub 218 schreiben 

MODE 2:LOCATE 1,1:PAINT"abc":LOCATE 1,1 
LOCATE 1,1:PRINT"abc":LOCATE 1,1 


FOR i = EAB8B TO EABBB:READ a$ 
POKE i,VAL("&"+a$) :NEXT i:RETURN 
DATA cd,68,bb,f5,cd,5a,bb,f1,cd,53,bb,c9 


gesehenen Buffer übernom- 
men werden und diese Da- 
ten lassen sich dann auch 
ganz schnell wieder an an- 
derer Stelle einfügen. 
Auch ein Full-Screen- 
Editor läßt sich mit die- 
ser Technik leicht erstel- 
len. Sie sehen, das Lesen 
von Bildschirmzeichen ist 
eine Technik, die sehr viel- 
seitig eingesetzt werden 
kann. Aber gleich vorweg: 
Diese Methode eignet 

sich nicht dazu, Grafik- 
Zeichen zu lesen. 

Wie immer bei unserem 
Heftteil über die Maschi- 
nensprache, wollen wir 
auch diesmal wieder nur 
dann in Assembler arbei- 
ten, wenn es erforderlich 
wird. Der Grund ist ganz 
einfach: Ein komplettes 
Programm in Maschinen- 
sprache zu schreiben ist 
sehr zeitaufwendig und 
durch das schnelle Basic 
der CPCs auch gar nicht 
erforderlich. Außerdem 


Zwecke zusammenfügen, 
um sein spezielles Pro- 
gramm aufzubauen. Auch 
die Zusammenfassung vie- 
ler Routinen und die 
Assemblierung für ein ex- 
ternes ROM kann dadurch 
relativ einfach geschehen. 
Die einzelnen Unterrou- 
tinen können auch als 
RSXen aufgebaut werden 
und stehen dann bei Be- 
darf dem CPC-Benutzer 
zur Verfügung. Ein kom- 
plett in Maschinensprache 
geschriebenes Programm 
würde aber viele Teile 
enthalten, die der Anwen- 
der gar nicht benötigt, 
und er müßte die wichti- 
gen Teile erst analysieren, 
um dann seine eigenen 
Wünsche erfüllen zu kön- 
nen. 

Außerdem sollen unsere 
Kapitel über die Maschi- 
nensprache vor allem 

nur demonstrieren ‚wie 

es geht. Deshalb erfolgt 
bei uns also die Einbin- 
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dung in Basicprogramme. 
Wer das Firmware-Hand- 
buch zum Schneider CPC 
besitzt, kann in diesem 
die Angaben über eine 
Routine finden, die das 
Kernstück für unsere 
nachfolgenden Programme 
bildet: TXT RD CHAR. 
Sie ist dafür zuständig, 
ein Zeichen vom Bild- 
schirm zu lesen. Die Ein- 
sprungadresse für 


DAS LESEN VON 
BILDSCHIRMZEICHEN 


diese Routine ist &BB60. 


Bei der Benutzung dieser 
Routine sind aber gewis- 
se Voraussetzungen zu 
beachten, auch wenn im 
Firmwarehandbuch bei 
den Einsprungbedingun- 
gen steht: „keine“. 

Das Firmware-Handbuch 
hat zwar insofern recht, 
daß keine Einsprungbe- 
dingungen gefordert wer- 
den, aber die Routine 
muß ja wissen, an wel- 
cher Position des Bild- 
schirmes gelesen werden 
soll. Deshalb darf der 
Punkt „Aktion: “ im 
Firmware-Handbuch 
nicht vergessen werden: 
Lies von der Cursorposi- 
tion des augenblick- 
lichen Ein-/Ausgabegerä- 
tes (stream) ein Zeichen. 
Da wir von der einfachen 
Betrachtungsweise ausge- 
hen wollen, nehmen wir 
an, daß nur ein Stream 
ausgewählt ist, und zwar 
der Stream 0. Dies ist 
auch der Einschaltzustand 
bei den CPCs. : 
Um also ein Zeichen an 
einer bestimmten Posi- 
tion auf dem Bildschirm 
lesen zu können, ist erst 
die Positionierung des 
Cursors erforderlich. 
Diese kann von Basic aus 
durch den Locate-Befehl 
erfolgen. Selbstverständ- 
lich ist diese Positionie- 
rung auch in Maschinen- 
sprache möglich. Wenn 


also der Cursor an die 
Stelle des Bildschirmes ge- 
bracht wurde, von der 
gelesen werden soll, 

kann die Firmware-Rou- 
tine aufgerufen werden. 
Nach dem Aufruf gibt es 
nun verschiedene Punkte, 
die zu beachten sind und 
diese sind in den Firm- 
ware-Unterlagen unter 
den Aussprungbedingun- 
gen zu finden. 

Nehmen wir an, es befin- 
det sich keinerlei Grafik 
auf dem Bildschirm, dann 
kann die Routine TXT 
RD CHAR auch jedes auf 
dem Bildschirm darge- 
stellte Zeichen auslesen. 
Der Akkumulator, ein 
8-Bit-Register des Z80- 
Prozessors, enthält dann 
das gelesene Zeichen. Zu- 
sätzlich ist im F-Register 
das Bit für Carry gesetzt. 
Das Carry-Flag ist also 
Angenommen, es ist aber 
Grafik auf dem Schirm, 
dann kann die Firmware- 
Routine die Zeichen, die 
sich an Positionen, an 
denen sich auch Grafik 


MODE. 


GOSUB 258 
FORMAT 


PARINT"Abbruch 


LOCATE 
INPUT 


INPUT 
char=-&EAU>29 


1,10 


SERIE 


befindet, nicht lesen. 
Dies wird bei Beendigung 
von TXT RD CHAR da- 
durch mitgeteilt, daß 
Carry „aus“ ist. Außer- 
dem enthält in diesem 
Falle der Akku (Kurz- 
form von Akkumulator) 
den Wert O0. Der Wert O 
entspricht aber nicht dem 
Wert, der dann im Akku 
steht, wenn die Routine 
kein Zeichen (also eine 


WAR DER LESE- 
VORGANG 
ERFOLGREICH? 


leere Bildschirmposition ) 


findet. Leere Bildschirm- 

osition ergibt den 

ert 32 und dieser ist der 
Code für Space (Leer- 
taste). 
Deshalb kann anhand 
des Carry-Flags und auch 
anhand des Akku-Inhaltes 
überprüft werden, ob ein 
Bildschirmzeichen er- 
kannt wurde. Es gilt aber 
auch noch zu berücksich- 
tigen, welche Werte die 
anderen Register beinhal- 
ten und welche Flags 


2:MEMORY &9FFF 
PRAINT"Demonstrationsprogramm zum Lesen 


TO 48:PRINT CHR$( i +47) ; :NEXT 
ı TO 48:PRINT CHRSI i+63) ; :NEXT 
(c) 


durch 2* 


"Zeile";zeile 
"Spalte”; 


spalte 


CALL EABBB, zeile,spaäalte 
LOCATE 1,13:PRINT"Das gelesene Zeichen 
PRINT CHR$( PEEK(char)) 


GOTO 178 


a=-EAwBBßNM:e=-GAR29:zb=-19AB:e=e+1 


FOR i 


=a TO e:READ d$:IF LEFT$LI$,1)="6" 
IF (flag AND ps<>VAL(d$)) 
IF (flag AND i=-e) 


IF flag THEN i=i-1:zb=2b+1:ps=9:d$="":flag = 


noch beeinflußt werden. 
Dies steht eben in den 
Aussprungbedingungen. 
Dort steht für diese 
Routine: - 
Immer: 

alle anderen Flags 

zerstört 

alle anderen Register 

unverändert 
Was bedeutet dies für uns, 
bzw. unser zu erstellen- 
des Programm? Es weist 
darauf hin, daß die Inhal- 
te der Flags nicht mehr 
denen entsprechen, die sie 
vor dem Aufruf hatten. 
Wer in einem Programm 
also die vorherigen Zu- 
stände der ‚„Signalisie- 
rungs-Flaggen“ wieder ha- 
ben will, muß diese vor 
dem Aufruf retten. Also 
irgendwo hinschreiben, 
wo sie nachher wieder ab- 
geholt werden können. 
Der Hinweis ‚‚alle ande- 
ren Register unverän- 
dert‘ bedeutet, daß die 
Inhalte, also die Werte der 
Register, denen vor dem 
Aufruf entsprechen. 
Selbstverständlich mit 
Ausnahme des Inhaltes im 


i:PRINT 
i:PRINT 
by LM 


d$="&"+d$:POKE i,VAL(d$) :ps=ps+VAL(d$): 


ER? IF,S te 
DATA 
DATA 
DATA 


DATA 
 HHATA 


THEN NFXT i 
FE,02,C9,0D,7E,09,32.28,50375 
AW,DD,7E,92,32,27,A®d,3E,650334 
uw .CD,B4,88,3A,27,A®,CD,5D4BA 
DAIA 72,BB,3A,28,AB,CD,6F ,BB,60426 
ED,60,88,32,29.AR.C9,01,602AD 
na, 33,6002> 


THEN flag 
THEN PRINT"Fehler in Zeile 
THEN REFURN 


0:60T0 


Akku und im F-Register. 
Das F-Register beinhaltet 
ja die Flags. 

Damit ist nun eigentlich 
alles klar. Um ein Zeichen 
zu lesen, muß der Cursor 
positioniert und dann die 
Routine bei &BB60 auf- 
gerufen werden. Aber 
noch können wir damit 
nichts anfangen, denn es 
nützt uns ja nichts, wenn 
der Akku so schlau ist 

und ‚weiß‘, was an der 
entsprechenden Position 
stand. Wir wollen dies ja 
beispielsweise auch wis- 
sen, bzw. dieser Wert 
(dieses Zeichen) soll ja 
weiterverarbeitet werden. 
Für unsere Demonstra- 
tion reicht es, das im Akku 
befindliche Zeichen auf 
dem Bildschirm auszuge- 
ben. Hierzu verwenden 
wir eine weitere Firmware- 
Routine: “TXT OUTPUT“. 
Diese Routine hat ihren 
Einsprungpunkt bei 
&BB5A 


Die Bedingungen für die- 
se Routine finden Sie in 
der Übersicht der in die- 
sem Artikel verwendeten 


von Bildschirmzeichen 


=1 
"zb+1:END 
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Im Hexladerteil steckt die Maschinen- 
routine des Assemblerlistings 


ZREADV2.EDI 


Firmware-Routinen. 
Versuchen wir nun ein- 
mal eine Maschinenrouti- 
ne zu schreiben, die ein 
ASCII-Zeichen vom Bild- 
schirm liest und an einer 
änderen Stelle wieder aus- 
gibt. Die Positionierung 
soll der Einfachheit hal- 
ber von Basic aus ge- 
schehen. 


DAS MASCHINEN- 
PROGRAMM ENTSTEHT 


Zunächst müssen wir dem 
Assembler mitteilen, für 
welchen Speicherbereich 
er das Programm aufberei- 
ten,-also assemblieren 
soll. Dies geschieht durch 
den Befehl ORG. Damit 
das Maschinenprogramm 
von Basic aus nicht über- 
schrieben wird, muß die 
oberste — von Basic aus 
erreichbare — Speicher- 
stelle tiefer gesetzt werden 
und zwar direkt unterhalb 


des Maschinenprogrammes. 


Der Befehl hierzu lautet: 
MEMORY &9IFFF. Be- 
trachten Sie das Maschi- 
nenprogramm, wie es mit- 
tels eines Texteditors ge- 
schrieben wurde. 

Beim MAXAM, den wir 
verwenden, ist dieser 
Text-Editor integriert. 
Als erstes wird durch den 
Befehl org &a000 der Be- 
ginn des Maschinenpro- 
grammes auf &a000 fest- 
gelegt. 

Da mittels des Basic-Be- 
fehles LOCATE festge- 
legt wird, an welcher Stel- 
le gelesen werden soll, 
braucht dies im Assem- 
blerprogramm nicht be- 
rücksichtigt zu werden. 
Deshalb folgt dann der 
Aufruf der Leserroutine. 
Nach Rückkehr aus die- 
ser Routine ‚weiß‘ der 
Akku, welches Zeichen 
an der durch Locate ge- 
wählten Position stand. 
Eine unmittelbar folgen- 
de Ausgabe dieses Zei- 
chens würde es aber an 
der gleichen Position pla- 
zieren, an welcher der 
Cursor steht. Zu bemer- 
ken wäre es deshalb 
nicht, denn dort steht 
das Zeichen ja schon. 
Um das Funktionieren 
der Routine zu zeigen, 


retten wir deshalb erst 
einmal den Akkuinhalt. 
Dieser Rettungsvorgang 
wird deswegen durchge- 
führt, weil wir zufällig 
das Firmware-Handbuch 
verlegt haben und nicht 
mehr wissen, ob die Zei- 
chenausgabe über die 
Firmware-Routine TXT 
WR CHAR Register und 
Flags verändert. Sie se- 
hen also, selbst, wenn 
man die genaueren Bedin- 
gungen nicht kennt, kann 
man sich ab und zu hel- 
fen! Der Rettungsvor- 
gang wird im Beispielpro- 
gramm durch push af rea- 
lisiert. Dieser Befehl 

legt den Inhalt des Akku- 
mulators und des F- 
Registers auf den Stack. 
Der Stack ist ein Speicher- 
bereich, den der CPC bzw. 
der Z80 benutzt, um 

sich etwas kurzfristig zu 
merken (der Stack wird 
erst in einem späteren 
Artikel näher bespro- 
chen). Der Rettungsvor- 
gang verändert aber den 
Inhalt des AF-Doppelre- 


gisters nicht. Deshalb wird 


DER CURSOR WIRD 
POSITIONIERT 


durch den Aufruf Call 


&BB5A das im Akku 
stehende Zeichen an 

der augenblicklichen Posi- 
tion wieder ausgegeben. 
Nach dieser Ausgabe wird 
die Cursorposition auto- 
matisch auf die nächst- 
mögliche Schirmposition 
gesetzt. Nun holen wir 
uns die beiden auf den 
Stack abgelegten Regi- 
sterinhalte wieder und 
dies geschieht durch 

POP AF. Wir können nun 
ganz sicher sein, daß im 
Akku das an der Lese- 
stelle vorhandene Zeichen 
steht. Da die Cursorposi- 
tion verrückt wurde, kann 
durch den Aufruf der 
Ausgaberoutine nun das 
Zeichen ausgegeben wer- 
den. Der Aufruf zur Aus- 
gabe ist wieder der glei- 
che. Da nun das, was wir 
wollten, ausgeführt ist, 
folgt als letztes noch der 
Befehl RET, der eine 
Rückkehr zur aufrufenden 
Routine veranlaßt. 

Da wir die Maschinenrou- 


tine von Basic aus aufru- 
fen, erfolgt nach der Ma- 
schinenprogrammausfüh- 
rung die Rückkehr ins 
Basic. 
Damit es keinen Irrtum 
gibt: Der mittels des Text- 
editors erstellte Quellcode 
muß erst mit einem Assem- 
bler umgesetzt werden, da- 
mit ein ablauffähiger Code 
entsteht! Hier nun die klei- 
ne Maschinenroutine: 

ORG &A000 

CALL &BB60 

PUSH AF 

CALL &BB5A 

POP AF 

CALL &BBS5A 

RET 


Basic-Beispiel zur 

Demonstration: 
LOCATE 1,1:PRINT 
“abc: LOCATE 1,1: 
CALL &a000 


Diese Befehle können Sie 
im Direkt-Mode eingeben. 
Damit die Programmaus- 
führung aber klappt, muß 
das Maschinenprogramm 
im Speicher stehen. Für 
diejenigen, die keinen 
Assembler haben, brin- 
gen wir auch noch den 
entsprechenden Hexlader, 
also ein kleines Basicpro- 
gramm, das die dem 
Maschinenprogramm ent- 
sprechenden Werte in die 
richtigen Speicheradres- 


HEXLADER? 


sen schreibt. Der Aus- 
druck ‚‚Hexlader“‘ rührt 
daher, weil der Maschinen- 
code in Form von Hexa- 
dezimalzahlen in den 
Datastatements steht. 

Das bisherige Programm 
ist nur ein Beispiel, wel- 
ches das Prinzip aufzei- 
gen soll. Weitere Varian- 
ten folgen nun. 

Zunächst wollen wir mit- 
tels Maschinensprache so- 
wohl den Cursor setzen, 
das Zeichen lesen und zu 
guter Letzt das gelesene 
Zeichen irgendwo im 
Speicher ablegen. Dieser 
Vorgang soll aber nicht 
nur für eine bestimmte 
Bildschirmposition gelten, 
sondern die Auswahl soll 
von Basic aus erfolgen. 
Auch diese Routine soll 
bei &A000 beginnen. Des- 
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eh. 

sr ar 
© 2 ak 
Ren eh 


halb als erstes wieder die 
Anweisung an den Assem- 
bler, den Code für den 
Start abzulegen. 

Bei diesem Beispiel zeige 
ich — außer der erweiter- 
ten Routine —auch noch —, 
wie die Programmierung 
durch den Einsatz von 
Labels vereinfacht werden 
kann. 

Betrachten Sie hierzu Bild 
3. In den Zeilen 9 

stehen nur Bemerkungen. 
In Zeile 10 steht der 
“ORGanisierbefehl“ (so 
ist der Befehl leicht zu 
merken). Ab Zeile 13 fol- 
gen Zuweisungen, bzw. 
Definitionen für verschie- 
dene Firmware-Einsprün- 
ge. 


LABEL-ZUWEISUNG 


Die erste Festlegung 
SETCOL equ &BB6F teilt 
dem Assembler mit, daß 
dem Label SETCOL die 
Adresse &BB6F zugeteilt 
werden soll. SETCOL ist 
dabei die Abkürzung des 
Namens aus dem Firm- 
ware-Handbuch (TXT 
SET COLUMN), die mir 
einfach zu lang war. Die 
Funktion dieser Routine 
ist es, die horizontale Posi- 
tion des Cursors zu setzen 
(siehe Übersicht in unse- 
rer Tabelle). 

Die nächste Zuweisung ist 
SETROW, auch wieder 
eine Abkürzung des Na- 
mens einer Firmware- 
Routine (TXT SET ROW). 
Diese setzt die vertikale 
Position für den Cursor. 
Welche Werte als Ein- 
sprungbedingungen zu 
übergeben sind und in 
welchen Registern dies zu 
erfolgen hat, entnehmen 
Sie bitte ebenfalls der 
Aufstellung (Tabelle). 
Danach wird dem Assem- 
bler mitgeteilt, an wel- 
cher Adresse die Routine 
zum Lesen von Bildschirm- 
zeichen liegt (RDCHAR 
equ &bb60) und als letz- 
te Zuweisung noch die 
Information über die 
Streamauswahl (STRSEL 
equ &BBB4). 

Besitzer eines Assemblers 
können selbstverständlich 
diesen Wert ändern und 
damit das Lesen aus an- 
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88983 se ZREADv2.EDI #* 
09084 ;* Maschinenprogramm zum Lesen *# 
08885 von Bildschirmzeichen %* 
00806 (c) by LM * 
08007 
88808 
88089 
08018 
080911 
08812 
88013 
08914 
88015 
88016 
88817 
08818 


( ABB) org EABBO 
;Definitionen 
SETCOL equ 
SETROW equ 
ARDCHAR equ 


STASEL equ 


( BB6F) 
( 8872) 
( B860) 
( BBB4) 


Ebb6f 
&bb72 
6bb68 
Ebbb4 


FE 82 Einsprung 
cp 8,2 


ret nz s 


;Zwei Zeichen mitgegeben ? 
80019 nein -> Basic 
890208 
880921 
09822 
080023 
09024 
89925 
89026 
089027 
89028 
08029 
B89930 
80831 
89032 
89833 
88034 
800935 
00036 
888037 
89038 
88039 
89939 
00039 
09040 
00041 


a,(ix+B) 
(Spalte),a 
a,(lix+2) 
(Zeile),a 


8,8 
STASEL 
a,( ZEILE) 
SETROW 


;‚Streamauswahl treffen 
;sund aufrufen 
;‚Zeilenposition holen 
;Lesezeile positionieren 
ARBEIT a,( SPALTE) 
SETCOL 
RDCHAR 
(CHAR) ‚a 


;S5palte holen 

;Spalte positionieren 
‚Zeichen 

;merken 


;Merk-Speicherstellen 
ZEILE 


SPALTE 
CHAR 


defs 1 
defs 1 
defs 1 


(8801) 
(8001) 
(88081) 


Errors: 88888 Warnings: 898888 


Assemblerlisting: Lesen von Bildschirm- 
zeichen 


deren Streams ermögli- 
chen. Diese letzte Zuwei- 
sung wird normalerweise 
nicht benötigt, wenn 
Stream 0 benutzt wird 
und kein anderer Stream 
ausgewählt wurde. Für 
diejenigen aber, die ex- 
perimentieren wollen, 
wurde sie eingefügt, um 


zu zeigen, wo beispiels- 
weise diese Auswahl er- 
folgen kann. Nach der 
Zuweisung steht 

ORG ...., das kennen Sie 
ja schon! 

Beim Label-Einsprung 
geht es dann los. Eigent- 
lich wäre es nicht erfor- 
derlich, dort ein Label 


einzufügen, aber dadurch 
wird es übersichtlicher. 
Als mnemonischer Code 
steht in dieser Zeile: 


Dieser Befehl bewirkt, daß 


der Inhalt des Akkumula- 
tors mit dem Wert 2 ver- 

glichen wird. Enthält der 
Akku den Wert 2, dann 
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wird im F-Register die Zero- 
Flagge (Zero-flag) zum Zei- 
chen, daß der Vergleich 
Übereinstimmung ergab, 
gesetzt. Warum sollte im 
Akku aber eine Zwei ste- 
hen? Bei einem Maschi- 
nenprogrammaufruf ent- 
hält das A-Register (Akku) 
die Anzahl der Parameter, 


die beim Aufruf mitgege- 
ben wurden. Da der Auf- 
ruf von Basic aus auf fol- 
gende Weise geschieht: 
Call Programmstart, Spal- 
te, Zeile, werden also zwei 
Werte mitgegeben und die- 
se Anzahl steht dann im 
Akku. Werden weniger 
oder mehr mitgegeben, 
dann führt der Vergleich 
durch CP (Compare = ver- 
gleiche) dazu,daß kein 
Zero-Flag gesetzt wird, 
denn es herrscht ja keine 
Übereinstimmung. 

Beim nachfolgenden Be- 
fehl wird dies ausgewer- 


AB NACH 
BASIC 


tet. “ret nz“ ist der Be- 
fehl für “Zurück falls 
nicht Null“. Wurde eine 
verkehrte Anzahl von 
Parametern mitgegeben, 
dann wird sofort ins 
Basic zurückgekehrt. 
Falls die Anzahl stimmt, 
dann wird im Maschinen- 
Bogtanın weitergemacht. 
s geht also mit LD A, 
(IX+0) weiter. 
Diese Befehlsfolge lautet 
frei übersetzt: Lade den 
Wert in den Akku, der in 
der Speicherstelle, auf die 
das IX-Register zeigt, 
steht. Das Doppel- 
register IX zeigt bei der 
Übergabe von Parametern 
auf die Speicherstelle, in 
welcher der zuletzt über- 
gebene Parameter zu fin- 
den ist. Als letzten Para- 
meter übergeben wir von 
Basic aus den Wert für 
die Spalte. 
In den beiden Speicher- 
stellen, auf die IX deutet, 
steht deshalb die Spalten- 
nummer. Allerdings nicht 
als Acht-Bit-, sondern als 
16-Bit-Wert und zwar in 
Low-/High-Byte-Anord- 
nung. Da die Spalte aber 
nicht größer sein kann 
als die Anzahl der Zei- 
chen pro Zeile (hängt 
vom Mode ab), kann der 
Wert auch nie größer als 


80 sein! Deshalb erhalten. 


wir den übergebenen 
Wert dann, wenn wir nur 
die Adresse auslesen, auf 
die IX zeigt, denn in ei- 
nem Register kann ja ein 
Wert zwischen 0 und 
255 stehen. In unserem 


Programm haben wir nun 
alles etwas umständlich 
programmiert. Es ginge 
viel einfacher, wie wir 
noch zeigen werden. Aber 


jeder, der anfängt, in 


Maschinensprache zu 
programmieren, hat irgend- 
wann immer etwas Schwie- 
rigkeiten. Damit nach der 
Ausführung der Maschi- 
nenroutine von Basic aus 
überprüft werden kann, 
aus welcher Spalte der 
Lesevorgang erfolgen soll- 
te, legen wir den Wert in 
eine eigens dafür vorgese- 
hene Speicherstelle ab. 
Dies bewirkt der Befehl: 
LD (Spalte) a. 
Der vorhergehende über- 
gebene Parameter steht 
in zwei Speicherstellen 
oberhalb der Stelle, au 
die IX zeigt. Deshalb kön- 
nen wir diesen Wert (den 


SERIE 


GEWUSST 
WIE 


GEWUSST 
was 


Wert für die Zeile) dort ab- 
holen: 

LD A ,(IX+2) 
Auch dieser kann nicht 
größer sein als 255 und 
deswegen reicht es auch 
hier, nur das LOW-Byte 
in den Akku zu lesen, um 
die richtige Zeile zu erhal- 
ten. Auch diesen Wert 
speichern wir durch 

LD (Zeile),a 
zwischendurch ab. 
Beim Label RAMRD wird 
zunächst der Akkumulator 


VERWENDETE FIRMWARE-ROUTINEN: 


TXT OUTPUT 
Sinn: 


(&BB5A 
Übergabe eines Zeichens (auch 


Steuer-Codes) an den Text-VDU 
Einsprung: A enthält das zu sendende Zeichen 
Aussprung: Alle Register und Flags bleiben 


erhalten 


TXT RDCHAR (&BB60) 


Sinn: 


Lesen eines Zeichens vom Bildschirm 


an der Position des Cursors 


Einsprung: 
Aussprung: 


ohne Bedingungen 
Zeichen erkannt 


Carry an 
A enthält das 
gelesene 
Zeichen 


Zeichen nicht erkannt Carry aus 


A enthält 0 


Immer: alle anderen Flags zerstört 
alle anderen Register 
unverändert 


TXT SET COLUMN (&BB6F) 


Sinn: 


Setzen der Cursor-Horizontalposition 


Einsprung: A enthält die logische Spalte der 
Cursorsposition 

Aussprung: AF und HL sind zerstört 
alle anderen Register unverändert 


TXT SET ROW 
Sinn: 


(&BB72) 
Setzen der Cursor-Vertikalposition 


Einsprung: A enthält die logische Zeile der 
Cursorposition 

Aussprung: AF und HL sind zerstört 
alle anderen Register unverändert 


mit dem Wert O geladen 
und dann in der nächsten 
Zeile die Streamauswahl- 
Routine aufgerufen. Der 
CPC weiß danach ganz 
sicher, daß er den Stream 
O0 beim Lesen benutzen 
soll. Da wir nach dem 
Einsprung in die Maschi- 
nenroutine gleich die 
mitgegebenen Parameter 
in die Merkspeicherstellen 
geschrieben haben, holen 
wir — aus der für die Zei- 
le zuständige — nun den 
Wert ab und setzen über 
die Firmware-Routine 
TXT SET ROW die Zei- 
lenposition. Mit der Spal- 
tenpositionierung wird in 
gleicher Weise verfahren. 
Danach folgt der Aufruf 
zum Auslesen (das ken- 
nen Sie ja schon) und die 
Ablage des Akku-Inhal- 
tes in ebenfalls einer Mer- 
ker-Speicherstelle. 


AUCH AN NUR-BASIC— 
PROGRAMMIERER IST 
GEDACHT 


Da nun alles erledigt ist, 
wird durch den Befehl 
RET wieder zum Basic 
zurückgekehrt. Am Ende 
des Assemblerlistings ste- 
hen noch die Zuweisun- 
gen für die Merker. 

Zur Demonstration und 
für reine Nur-Basic-Pro- 
grammierer haben wir 
auch noch ein Basicpro- 
gramm (Demo 1) abge- 
druckt, in welchem die 
eben beschriebene Maschi- 
nenroutine enthalten ist. 
Schwierigkeiten dürften 
beim Abtippen des Basic- 
programmes kaum auftre- 
ten. Wer sich aber wundert, 
weshalb sich die letzten 
-drei Datastatements vom 
Assemblerlisting unter- 
scheiden, dem sei gesagt, 
daß dies daher rührt, weil 
wir das Maschinenpro- 
gramm zu Testzwecken 
laufen ließen und dann 
erst mittels eines Data- 
generators den Hexlader 
erzeugt haben. Da diese 
Werte aber vom Basicteil 
übergeben und dann vom 
Maschinenprogramm über- 
schrieben werden, spielt es 
keine Rolle, welchen Wert 
diese drei Statements 
haben. 

Bis zum nächsten Mal 
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TEST 


BESSERES BILD 
FÜR DEN Pc 1512 


Trotz der vielen (teilweise überschwänglichen) Lobeshymnen, 
die von fast allen Zeitschriften nach der Vorstellung des Schneider PC 1512 
gesungen wurden, gab es doch einen Punkt, der viele störte: 

Die Bildschirmdarstellung! Nun scheint es Abhilfe zu geben: Eine 
nachrüstbare, herculeskompatible Grafikkarte. Wir haben diese Zusatz- 
karte getestet. Ob wir damit zufrieden sind, können Sie in diesem 
Artikel erfahren. 


Für die schlechte Bildschirmdarstel- 
lung ist in erster Linie der eingebau- 
te CGA (Colour Graphics Adapter) 
verantwortlich. Durch dessen festen 
Einbau wollte Amstrad erreichen, 
daß die gesamte Software-Palette 
auf den Schneider PCs genutzt wer- 
den kann. Aber was mußte der Käu- 
fer dafür hinnehmen? Von einer 
augenschonenden Darstellung kann 
man dabei wirklich nicht reden. 

In der heutigen Zeit wäre es wirk- 
lich nicht erforderlich gewesen, die- 
se den Kunden zuzumuten. Daß es 
auch anders geht, zeigen einmal die 
neuen PCs von Amstrad (Serie 1640) 
und auch die Nachrüst-Möglichkeit 
der (dadurch schon veralteten?) 

PC 1512-Geräte. 

In diesem Artikel soll es um die 
Grafik-Erweiterung mit einer Her- 
cules-kompatiblen Karte gehen, die 
dem Schneider PC 1512 eine besse- 
re Bildschirm-Darstellung ermög- 
lichen soll. Allerdings kann dieser 
Umbau nur in Verbindung mit ei- 
nem Monochrom-Monitor genutzt 
werden. „Farb-Hercules‘“ wird bis- 
her für den Schneider PC 1512 
nicht angeboten. Während bei der 
Darstellung der CGA-Karte die Zei- 
chenmatrix aus 8*9 Punkten besteht, 
werden bei Hercules 14*9 Punkte 
benutzt. Die Auflösung im Hercu- 
les-Mode beträgt deshalb 720*348 
(80 Zeichen/Zeile *9=720), gegen- 
über 640*200 Punkten bei CGA. 
Die Textdarstellung verbessert sich 
dadurch enorm, da vor allem die 
horizontalen „Unterbrechungen“ 
bei den Zeichen verschwinden! 
Während eine andere Zeitschrift 
(aus Sensationsgier?) bereits kurz 
nach der CEBIT darüber berichtete 
und auch gleich (wie kann es auch 
anders sein?), mangels eines Test- 
musters auch Unsinn druckte (GEM 
im Hercules-Mode ist doch mög- 
lich!), haben wir gewartet, bis wir 
diese Erweiterung wirklich testen 
konnten. Wir fühlen uns nämlich 
unseren Lesern gegenüber verpflich- 


tet, das zu testen, was sie wirklich 
kaufen können und nicht das, was 
auf irgendwelchen Messen als Muster 
gezeigt wird. Zwar könnten wir dar- 
über auch berichten, daß wir irgend- 
ein Labormuster von irgendetwas 
gesehen haben, aber wem ist dadurch 
gedient? Der Firma Schneider nicht, 
die dann nur mit Anfragen bombar- 
diert werden würde und dem Leser 
auch nicht, weil die Neuerung 

noch nicht zu haben ist. Die Firma 
Schneider hat eigentlich (im Gegen- 
satz zu vielen anderen Anbietern) 
immer nur das vorgestellt, was auch 
innerhalb der nächsten Wochen ge- 
liefert werden konnte, während der 
CEBIT ist sie von dieser durchaus 
positiven Einstellung abgewichen 
und schon wurde dadurch vielerlei 
Gerüchten und Fehlmeldungen Tür 
und Tor geöffnet. Wir wollen aber 
keine Gerüchte verbreiten, sondern 
über Fakten berichten und deshalb 
müssen Sie bei uns manchmal etwas 
warten, bis Sie darüber lesen kön- 
nen. Wenn wir darüber berichten, 
dann haben wir echte Tests durch- 
geführt und nicht nur schnell auf 
einer Messe ein Bild geschossen, um 


TEST DER WIRKLICH 


AUSGELIEFERTEN VERSION 


„heißeste‘ und „geheimste‘‘ Infor- 
mationen an den Mann zu bringen. 
Der Test mit der Hercules-kompa- 
tiblen Karte lief bei uns über meh- 
rere Wochen. Obwohl wir auch 
schon in früheren Ausgaben hätten 
darüber berichten können, taten 
wir es nicht, denn für den ersten 
Test hatten wir noch nicht die Ver- 
sion, die später wirklich zum Ein- 
satz kommen sollte; die gab es 
noch nicht. Deshalb haben wir 
zwar schon mit dieser ‚alten‘ Karte 
gearbeitet, aber dann mit einem 
Bericht noch gewartet, bis die end- 
gültige Version verfügbar war. Und 
es hat sich gezeigt, daß wir richtig 
gehandelt hatten, denn Probleme, 
die mit der ursprünglichen Version 
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vorhanden waren, zeigten sich bei 
der neuen kurzen Karte nicht mehr, 
bzw. sind bei der neuen Karte nur 
noch ganz geringfügig vorhanden. 
Da It. Schneider nur kurze Versio- 
nen in den Handel kamen, bzw. 
kommen sollen, wollen wir auch 
nur über die Eigenschaften dieser 
berichten. 

Das erste Testmuster von Schnei- 
der, bestand aus einem kom- 

plett neuen PC 1512 (Systemein- 
heit der neueren Bauform mit Lüf- 
tungsschlitzen) und einem umge- 
bauten Monochrom-Bildschirm. 
Das einfache Einstecken einer Her- 
cules-Karte reicht beim Schneider- 
PC also nicht aus, um ihm die bes- 
sere Bildschirmdarstellung beizu- 
bringen. 

Da dieser Umbau aber einem Kun- 
den weder zugemutet noch erlaubt 
werden soll, kann dies nur bei einem 
Schneider-Händler geschehen. 

In den Monitor wird hierzu eine Pla- 
tine mit Umschaltrelais und einigen 
weiteren Bauteilen eingebaut. Dieser 
Einbau erfolgt so, daß durch einen 
nachträglichen Durchbruch an der 
Rückseite des Monitors zwischen 
Hercules- und normaler Darstel- 
lung umgeschaltet werden kann. 


DIE UMRÜSTUNG KANN NICHT 
VOM KUNDEN VORGENOMMEN 
WERDEN 


Ein anderer Grund, daß die Umrü- 
stung nicht vom Endkunden selbst 
durchgeführt werden kann, sind die 


.erforderlichen Abgleicharbeiten für 


die Vertikal-Frequenz beider Grafik- 
modi sowie die Justage der Bildhöhe. 
Diese Abgleicharbeiten haben so- 
wohl auf der Zusatzplatine als auch 
auf der Monitor-Hauptplatine zu er- 
folgen. Außerdem wird durch eine 
schon vorhandene Öffnung ein Kabel 
herausgeführt, welches (mittels Stek- 
ker) an der Hercules-Karte ange- 
schlossen werden muß. Die Hercules- 
Karte selbst wird in einen der freien 
Slots eingesteckt und belegt in der 
neuen Version etwa einen halben 
Steckplatz. Leider aber sind die Di- 
mensionen dieser Karte doch so, daß 
bei Vorhandensein einer Drive-Card 
(z.B. der Vortex-Version) evtl. ein 
weiterer kompletter Steckplatz ver- 
lorengeht und dann nur noch der 
Platz für eine wirklich kurze Karte 
verbleibt. 

Der gesamte Umrüstsatz besteht 
außer den beiden Platinen noch aus 
der Installation-Software für die gra- 
fische Oberfläche GEM und aus der 
Einbau-/Bedienungsanleitung. Dies 
ist für den Endanwender zwar größ- 
tenteils zweitrangig, da der Umbau 
(wie schon erwähnt) bei einem auto- 
risiertem Händler zu erfolgen hat, 
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andererseits befinden sich aber wich- 
tige Informationen zum DIAG-, 
HALF- und FULL-Modus in diesen 
Unterlagen. 

Es ist also gut, wenn neben dem 
Umbau und der Installation von 
GEM, die beim Händler erfolgt, der 
Anwender die Unterlagen sichtet, 
denn das eine oder andere Problem 
mit auf dem Markt befindlicher Soft- 
ware läßt sich dadurch sicherlich 
umgehen. 

Die Schärfe der Zeichendarstellung 
ist mit der Hercules-Grafik zwar sehr 
verbessert, aber gegenüber der Dar- 
stellung mittels der CGA-Grafik, die 
im 60-Hertz-Modus arbeitet, tritt 
beim 50-Hz-Mode der hochauflö- 
senden Monochrom-Karte ein mehr 
oder weniger starkes Flimmern auf. 
Die Stärke dieses unangenehmen Ef- 
fektes hängt vor allem von der Ein- 
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reglers ab und vor allem auch vom 
dargestellten Bild auf dem Schirm. 
Während bei großflächigem dunklen 
Hintergrund kaum ein Flimmern zu 
bemerken ist, stört es bei hellem 
Hintergrund doch sehr. GEM (die 
grafische Benutzeroberfläche), ar- 
beitet leider mit einer „Schwarz 
auf Weiß‘-Darstellung (umgekehrt 
wäre angenehmer) und zeigt deshalb 
das Flimmern stärker als beispiels- 
weise ein Textverarbeitungspro- 
gramm mit dunklem ‚‚Papier““. 
Außerdem sind bei völlig hellem 
Hintergrund graue Farbschlieren 

— von der Bildoberkante nach un- 
ten verlaufend — festzustellen. Dies 
zeigt sich vor allem beim Start von 
GEM. Am linken Bildrand sind au- 
ßerdem senkrechte Streifen vorhan- 
den, die einen Schatteneffekt zei- 
gen, aber kaum störend wirken. 


stellung des Helligkeits- und Kontrast- Der Umbau erlaubt zwar das soft- 
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waremäßige Umschalten zwischen 
der hochauflösenden und der nor- 
malen Grafik-Darstellung, zusätz- 
lich muß aber auch noch der aus 
dem Monitor herausragende Um- 
schaltknopf betätigt werden. 

Diese Umschaltmöglichkeit muß 
vorhanden sein, denn sonst kann es 
vorkommen, daß manche Software 
nicht mehr läuft. Es kann sogar 
erforderlich sein, daß bei Program- 
men sogar die Hercules-Karte ganz 
entfernt werden muß. Ein Endkun- 
de sollte sich bei seinem Händler 
also sehr genau informieren, was 
durch die Aufrüstung alles erforder- 
lich sein kann. 

Der Umbau hat sich bei uns als sehr 
positiv herausgestellt, denn gerade 
auch bei der Textverarbeitung 
macht sich die Grafikkarte ganz 
hervorragend, unsere Augen werden 
nicht mehr so strapaziert wie vorher. 


WO GIBT ES WAS 


Wir wollen hier keine Gratiswerbung — es 
finden sich auch die Vertreiber jener Soft- und Hard- 
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ENDLICH ENTTARNT- DIE WAHRE 


BEDEUTUNG DER FEHLERMELDUNG 
IHRES COMPUTERS 


Unser freier Mitarbeiter 
B.H. aus G. hat in zeit- 
raubender Kleinarbeit 
die ‚‚echte’’ Bedeutung 
verschiedener Basic- 
Fehlermeldungen (immer 
mit “ERROR” gekenn- 
zeichnet) Ihres Compu- 
ters getestet und erarbei- 
tet. Das Ergebnis dieser 
schweißtreibenden 
Arbeit, die sich über 

36 Monate hinzog, lesen 
Sie bitte im folgenden 
Artikel. Unschwer wird 
der eine oder andere fest- 
stellen, daß sie von den 
im Handbuch beschriebe- 
nen Bedeutungen erheb- 
lich abweichen. Da kön- 
nen Sie mal wieder 
sehen, daß auch auf gar 
nichts mehr Verlaß ist. 


BAD DISK 
diese Fehlermeldung tritt 
ab und zu auf, wenn Sie 
im Hintergrund — wäh- 
rend des Computerns — 
Ihr Radio oder die 
Stereoanlage laufen ha- 
ben. Wann diese Fehler- 
meldung auftritt, liegt am 
Per ee Musikemp- 
inden Ihres Rechners. 
Unser Tip: Schaffen Sie 
sich einen Walkman mit 
Kopfhörern an! 


BAD SUBSCRIPT 

das bedeutet ‚‚unleserli- 
che Unterschrift“ auf ei- 
nem mit dem Textverar- 
beitungsprogramm 
„Witze-Schreiber“ erstell- 
ten Brief oder Schrift- 
stück. Abhilfe bietet hier 
sich zu bemühen, so zu 
schreiben, wie man’s in 
der Schule gelernt hat. 
(Übrigens: Unsere Tests 
ergaben, daß diese Mel- 
dung auch häufig bei ei- 
nem mit „Wort Fink“ er- 
stellten Dokument auf- 
tritt!) 


BREAK 
läßt sich am besten erklä- 
ren mit „Halt die Klappe“, 


und bedeutet, daß der 
Computer momentan 
keinen Bock auf Einga- 
ben hat. 


CAN’T CONTINUE 

der Computer kann nicht 
fortfahren, in der Regel 
ist das Benzin alle. Bitte 
suchen Sie unverzüglich 
mit ihm die nächste Tank- 
stelle auf. 


CAN’T RESUME 

der Computer ist überfor- 
dert, aus Ihren hochgei- 
stigen Texten oder Einga- 
ben ein abschließendes 
Resumee zur Beurteilung 
zu ziehen. Bitte verfassen 
Sie den Eingabetext neu 
und vermeiden Sie ge- 
schraubte Ausdrücke und 
Fremdwörter! 


DEVICE NOT PRESENT 
Obwohl vom Computer so 
gewünscht, haben Sie kei- 
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ne weiße Zeichenfarbe 
bei der Eingabe verwen- 
det. Bitte einstellen! 


DIVISION BY ZERO 

eine spezielle Meldung, die 
nur bei Großrechneranla- 
gen von militärischen 
Dienststellen (Verteidi- 
gungsministerium, Kreis- 
wehrersatzämter ect.) im 
Betriebssystem verankert 
ist. Sie wird in der Regel 
dann ausgegeben, wenn 
ein vorgesetzter Offizier 
sich Auskunft über den 
Ausbildungsstand und die 
Einsatzbereitschaft be- 
stimmter militärischer Ein- 
heiten, Division, verschaf- 
fen will. 


FILE DATA 


bei einem Hardware-Fehler, 


bei dem Sie gezwungen 
sind, das Computergehäu- 
se zu öffnen, zeigt Ihnen 
der Rechner genau, bei 
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welcher Schraube Sie die 
Nagelfeile Ihrer Freun- 
din ansetzen sollen (ei- 
nen passenden Schrauben- 
zieher haben Sie ja sowie- 
so nicht zur Hand, 
stimmt’s?), 


FILE NOT FOUND 

trotz intensivster Suche 
in Handtasche, Badezim- 
mer oder Küchenschrank, 
wurde die entsprechende 
Nagelfeile nicht gefunden. 


FILE NOT OPEN 

die verwendete besagte 
Feile taugt nichts (zu 
stumpf oder zu klein) und 
sollte gegen eine andere 
ausgetauscht werden. 
(Evtl. eine passende beim 
Versandfachhandel be- 
stellen!) 


FILE OPEN 

es wird versucht, ein be- 
reits offenes Computer- 
gehäuse mit einer Nagel- 
feile zu öffnen. Der Vor- 
gang ist ohne Verzöge- 
rung abzubrechen. 


FORMULA TOO 
COMPLEX 

Sie verwenden ein viel zu 
großes Druckerpapier. 
Abhilfe schafft hier 
zweimaliges Falten nach 
rechts, dann das Pro- 
gramm nochmals starten! 


ILLEGAL DEVICE 
NUMBER 

das Programm, mit dem 
Sie gerade im a 
sind, ist eine Raubkopie! 
Es wird dringend emp- 
fohlen, sich beim Fach- 
handel das Original zu 
besorgen. 


ILLEGAL DIRECT 

das soeben erworbene 
Originalprogramm ist eine 
Raubkopie eines anderen 
Originalprogramms. Hier 
hilft in der Regel nur 
Ausschalten, das Innere 
des Computers (Chips, 
Platinen usw.) auszu- 
bauen und das Leer-Ge- 
häuse fortan als Blumen- 
kasten (z.B. für den 
Balkon) zu verwenden. 


ILLEGAL QUANTITY 
diese Fehlermeldung er- 
scheint, wenn Sie mehr 
als 10(!) Stunden vor 
dem Computer sitzen, 


um ein Listing abzutip- 
pen. Dem Computer 
reicht es jetzt. 


LOAD ERROR 

der Computer entschul- 
digt sich für die letzte 
Fehlermeldung 


MISSING FILE NAME 
zum schnellen Auffinden 
der bereits vorhin be- 
schriebenen Nagelfeile 
(zum Öffnen des Com- 
puters) sollte dieser im- 
mer ein eigens definier- 
ter Name gegeben wer- 
den, z.B. „Blaues Feil- 
chen“ oder so. Fehlt die- 
ser, tritt diese Fehler- 
meldung auf. 


NEXT WITHOUT FOR 
tritt nur dann auf, wenn 
Sie mit dem Computer 
das beliebte Kartenspiel 
„17 +4‘ spielen und 
noch eine Karte nehmen 
wollen, obwohl Sie schon 
vier Stück haben. 


NOT INPUT FILE 

der Computer schämt 
sich, und bittet Sie, sein 
Gehäuse nicht zu öffnen. 


NOT OUTPUT FILE 

das Gegenteil zur vorher- 
beschriebenen Fehler- 
meldung. Das Öffnen 
seines Gehäuses mit ei- 
ner Nagelfeile tut dem 
Computer sichtlich wohl, 
in der Regel tritt diese 
Fehlermeldung dann auf, 
wenn Sie damit aufhören. 


OUT OF DATA 

falls Ihnen mitten in ei- 
nem Programm plötzlich 
einfällt, Ihren Computer 
zu fragen, wo er denn ei- 
gentlich hergestellt wur- 
de, erscheint diese Fehler- 
meldung. Er war von 
Ihrer Frage so überrascht, 
daß er sie zwar beantwor- 
tet (eben aus ‚‚Data‘“), 
aber mit dieser Fehler- 
meldung aussteigt. An- 
merkung in eigener Sa- 
che: Da wir den Ort 
„Data“ auf keiner Land- 
karte gefunden haben, 
sind wir für Hinweise aus 
unserem Leserkreis sehr 
dankbar! 


OUT OF MEMORY 

im Prinzip wie vorher, 
wird aber in aller Regel 
von größeren Rechnern 
wie PCs und auch vom 
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CPC ausgegeben. Auch 
diesen Ort konnten wir 
nicht ausfindig machen, 
vermuten aber, daß es 
irgendwo in Alaska sein 
könnte. 


OVERFLOW 

wird bei zu häufigem 

und übermäßigem Bier- 
genuß während der Ar- 
beit am Computer ge- 
meldet. (,„overflow‘‘ = 

zu deutsch etwa „es fließt 
dir ja schon bei den 


Ohren heraus‘) 


REDIM D’ARRAY 

ein französischer Adliger 
(1723-1789), der als 
Pionier aus der Gründer- 
zeit der Computerei als 
Erster entdeckt hat, daß 
zum Betrieb eines Rech- 
ners nur ein Schalter ge- 
nügt. (Die bisherigen 
Modelle wurden immer 
mit zwei Schaltvorrich- 
tungen geliefert, eine zum 
Ein- und eine zweite zum 
Ausschalten.) Das wirkte 
sich natürlich auf Benut- 
zerfreundlichkeit und 
Handhabung des Gerätes 
denkbar negativ aus. 
Tritt bei Ihnen diese 
Fehlermeldung auf, so 
hat Ihnen Ihr Computer- 
händler noch so ein Uralt- 
Gerät aus dieser Zeit 
angedreht. 


RETURN WITHOUT 
GOSUB 


diese Meldung befindet 
sich erst seit jüngster Zeit 
in verschiedenen Compu- 
ter-Systemen, genau: 

seit den Olympischen 
Spielen 1984 in Los 
Angeles. Dort wurden in 
nahezu perfekt ausgereif- 
ter Form alle sportlichen 
Ereignisse computermäßig 
erfaßt und gemessen. Die 
obenstehende Fehlermel- 
dung tritt dann auf, 

wenn ein Bodenturner 
(oder -turnerin) zwar ei- 
nen Salto rückwärts ganz 
ordentlich ausgeführt hat, 
aber nicht auf dem Kopf 
zu stehen gekommen ist. 
Den Preisrichtern wird so 
angezeigt, daß hier ein 
Punktabzug vorzunehmen 


ist. 
Falls Sie eine Turnhalle 
oder Ihren Fitnessraum 


als Arbeitsplatz für Ihren 
Computer gewählt ha- 
ben, kann diese Fehlermel- 
dung schon ab und zu ein- 
mal auftreten. 


STRING TOO LONG 
Hiermit wird ein Hard- 
ware-Fehler festgestellt. 
Diese Meldung bedeutet, 
daß das Kabel vom Netz- 
teil Ihres Computers zur 
Steckdose der Stromver- 
sorgung viel zu lang ist. 
Bitte ein kürzeres Kabel 
anbringen. Wir haben 

es zwar noch nicht ge- 
testet, sind aber der 
Meinung, daß sich dies 
auch sehr positiv auf die 
Geschwindigkeit Ihres 
Rechners auswirkt, da die 
Daten jetzt durch ein 
kurzes Kabel auch viel 
schneller übertragen 
werden. 


SYNTAX 

ebenfalls ein Computer- 
Pionier aus der Frühzeit, 
aus Gallien stammend. 
So lange er lebt, verstand 
er es meisterlich, zu ver- 
hindern, daß irgendein 
Vokabel-Trainings-Pro- 
gramm für Latein (auch 
„Latein-Kurs‘“ genannt) 
auf den Markt, geschwei- 
ge denn in die Technik 
kam. Da sich das nach 
seinem Tode jedoch 
grundlegend geändert 
hat, tritt diese Fehlermel- 
dung häufig noch bei 
Latein-Lernprogrammen 
auf. Abhilfe schafft hier 
nur, leise, aber stetig, 

die französische Natio- 
nalhymne zu summen. 


TOO MANY FILES 

Sie haben versucht, das 
Gehäuse Ihres Compu- 
ters mit mehr als einer 
Nagelfeile zu öffnen 
(vielleicht, weil Sie auch 
mehr als eine Freundin 
haben!). Eine genügt 
vollkommen. 


TYPE MISMATCH 
heißt wörtlich übersetzt 
„Gib doch nicht so 
mieses Zeug ein!‘“. Eine 
Erklärung erübrigt sich. 


UNDEF’D STATEMENT 
Ihr Computer hat soeben 
bemerkt, daß Sie, ob- 
wohl Sie mit ihm arbei- 
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ten, nicht aus Bayern 
stammen. Hier hilft ein- 
zig und allein nur, bei 
der zuständigen Behörde 
die bayerische Staatsan- 
gehörigkeit zu beantra- 
gen. (Als ständiger Zu- 
schauer des Fernsehma- 
gazins „Scheibenwischer“ 
sind Ihre Chancen jedoch 
denkbar ungünstig! ). 
Bis zum Abschluß aller 
Formalitäten (in der 
Regel 4 — 5 Jahre) rea- 
giert Ihr Computer auf 
keinerlei Eingaben mehr 
und läßt sich auch nicht 
ausschalten, außer Sie le- 
gen das für die Stromver- 
sorgung zuständige Elek- 
tritzitätswerk lahm. 


UNDEFINED 
FUNCTION 

vom Rechner wurde fest- 
gestellt, daß Sie als Ope- 
rator für ihn denkbar un- 
geeignet sind. In den mei- 
sten Fällen schafft hier 
Abhilfe, wenn Sie mal 
Ihren Sprößling oder Ihre 
Frau ranlassen! 


VERIFY 
diese Meldung besitzt eine 
Zwitterstellung. Sie wird 
nämlich angezeigt, wenn 
Ihr Computer von der 
Qualität Ihrer Eingaben 
so begeistert ist 
(Abkürzung für: very 
fine = sehr schön), daß er 
einen freudigen Strom- 
stoß durch alle Chips und 
Platinen jagt, was un- 
weigerlich dazu führt, daß 
ein „Interrupt‘‘ (=Unter- 
brechung) ausgelöst wird. 
Obwohl sehr zufrieden 
mit Ihnen, bringt der 
Rechner doch eine Fehler- 
meldung. Wir wollen da- 
mit ganz klar wieder eine 
der vielfältigen Unge- 
reimtheiten gewisser 
Computerhersteller — und 
Software-Entwickler des 
entsprechenden Betriebs- 
systems anprangern. 
Leider konnten wir diese 
Fehlermeldung mit all 
ihren Auswirkungen und 
Nebenerscheinungen bis- 
her noch nicht austesten, 
da sie eigenartigerweise 
während unserer Redak- 
tionstätigkeit noch nie- 
mals aufgetreten ist..... 
(hb) 


RETZLAFF u.a. 


Daß Tips und Tricks rund 
um den CPC sich bei allen 
Anwendern großer Beliebt- 
heit erfreuen, ist allge- 
mein bekannt. Wen wun- 
dert es da, daß solcher- 

lei Computerwissen im 
gleichnamigen Data 
Becker Buch bereits im 
zweiten Band erschienen 
ist. Das vorliegende Werk 
ist allerdings keine mehr 
oder weniger zusammen- 
hanglose Sammlung von 
Programmiertips — wie 
man vielleicht glauben 
könnte, sondern eher eine 
geordnete Grundlagen- 


TIPS & TRICKS 


studie, die sich mit Basic, 
Befehlserweiterungen und 
Maschinensprache be- 
schäftigt. Keines der The- 
men wird erwartungsge- 
mäß erschöpfend behan- 
delt; vielmehr findet der 
Leser schwerpunkthaft 
Arbeitshilfen zu den ge- 
nannten Bereichen. 

So werden im Basicteil 
zum Beispiel Sortierver- 
fahren, 3-D-Grafik und 
Wissenswertes zur anwen- 
derfreundlichen Programm- 
gestaltung besprochen 
(Menü-Maskengenerator). 
Anfänger können ihr 
Basicwissen hier spürbar 
aufwerten. Diese Fest- 
stellung gilt auch für den 
Maschinenspracheteil, 
der durchaus auch Hin- 
tergrundinformationen 
vermittelt. 


SERVICE 


RSX U 
MASCHINENSPRACHE 
SIND GUT ERLÄUTERT 


Das Programmieren in 
Maschinensprache steht 
dabei im Vordergrund. 

Die Z-80-Register wer- 
den dem Leser ebenso 
nahe gebracht wie eine 
Reihe leistungsstarker Ein- 
zelbefehle dieses Prozes- 
sors. Im Anschluß daran 
werden Maschinenrouti- 
nen zur Bildschirmbehand- 
lung und das Management 
von MC-Programmen 


beiten mit dem CPC 
unterstützen. 


FAZIT: HILFREICHES 
BUCH MIT EINEM 
REST-GEHEIMNIS 


Das Buch kann allen, die 
den Anfängen entwach- 
sen sind, empfohlen 
werden, auch dann, wenn 
einige Kapitel (z.B. Schüt- 
zen eigener Programme) 
mehr als kläglich abge- 
handelt werden. In punc- 
to Kopierschutz hat man 
bei Data Becker sicher 


(speichern, laden, ver- 
schieben usw.) anschau- 
lich erklärt. RSX-Be- 
fehlserweiterungen sind 
ein weiteres Thema dieses 
Buches. Eine Aufstellung 
wichtiger Betriebssystem- 
routinen und nützliche 
Adressen des Basic-Inter- 
preters im Vergleich der 
3 CPC Typen findet man 
im Buchanhang. Viele 
Programmlistings und 
-routinen ergänzen den 
Buchtext etwa im Verhält- 
nis 1:2 

Allen kommentierten 
Assemblerlistings im 
Maschinenspracheteil hat 
man entsprechende Basic- 
lader beigegeben, damit 
auch der Nicht-Maschi- 
nen-Sprachler sie sofort 
einsetzen kann. Tips & 
Tricks (Band 2) enthält 
viele nützliche Anregun- 
gen, Hinweise und Rou- 
tinen, die effektives Ar- 


mehr auf dem Kasten. 
Aber wer läßt sich da 
schon gern in die Karten 
schauen. 

(Gerhard Wertenbach) 


DAS GROSSE BASIC- 
BUCH ZUM CPC 6128 
VON KOWAL BEI 
DATA BECKER 


Besteht bei einem sol- 
chen Buchtitel von Data 
Becker nicht die Gefahr, 
daß hier in ausgedehnte- 
rer Form das Handbuch 
wiederholt wird? Ist es 
überhaupt nötig, den 
6128 noch einmal außer- 
halb der anderen CPCs 
zu besprechen, oder wür- 
de nicht ein Kapitel in 
allgemeinen CPC-Büchern 
ausreichen? 

Am ausgezeichneten 
Lokomotive Basic des 
Schneider CPC geht kaum 


84 


ein Anwender vorbei, 
auch wenn er über Kennt- 
nisse in anderen Program- 
miersprachen verfügt. 

An solche, die das gewis- 
senhafte Handbuchstu- 
dium hinter sich haben, 
wendet sich dieses Data- 
Becker Buch. Es will nicht 
als Einstiegswerkzeug ver- 
standen werden, sondern 
versucht, über diese Ebe- 
ne hinaus, Zusammenhän- 
ge zwischen Einzelbefeh- 
len und Befehlsgruppen 
auf unterschiedlichen We- 
gen darzustellen. Dem 
Autor ist dieses Vorha- 
ben zumindest im Ansatz 
gelungen. 


EIN DATA BECKER BUCH 


KLEINE ÜBER- 
TREIBUNG IM 
COVERTEXT 


Der Nutzen dieses Buches 
besteht in der Vielzahl 
der Anregungen, Tips und 
Programmanwendungen, 
die der Leser erfährt. 
Kritisch anzumerken ist 
allerdings die Oberfläch- 
lichkeit, mit der einige 
Themenbereiche abgehan- 
delt werden. So erweist 
sich z.B. das auf dem inne- 
ren Cover angekündigte 
„Schützen von eigenen 
Programmen“ oder die 
„Fehlerbearbeitung‘“ als 
ein Flop, dem nicht ein- 
mal 2 Seiten „geopfert“ 
werden. 

Auch die Soundprogram- 
mierung kommt im Ge- 
samtkonzept etwas spär- 
lich weg. Trotzdem bleibt 
genügend Buchsubstanz 
übrig, die einen Kauf des 
Werkes sinnvoll erschei- 


nen läßt. Nach der übli- 
chen Einführung zum 
Rechner und seiner Pro- 
grammiersprache Basic 
erläutert der Autor die 
Grundelemente des Basic. 
Hier stehen die struktu- 
rellen Komponenten im 
Vordergrund, wie leicht 
an den Kapitelüber- 
schriften Variable, Pro- 
grammverzweigung, Schlei- 
fen, Unterprogramme 
usw. ersichtlich wird. 
Bevor das umfangreiche 
(und unvermeidliche) 
Kapitel „Basic für Fort- 
geschrittene“ ansteht, er- 
fährt man einiges Grund- 
legendes über die Interna 
des CPC, soweit es die 
Zahlen- und Speicherplatz- 
behandlung betrifft. 
Dann aber geht es ans 
Eingemachte. 
Dateiverwaltung mit Pro- 
grammbeispielen 


DATEIVERWALTUNG 
MIT PROGRAMM- 
BEISPIELEN 


Datenverwaltung in der 
programmäßigen Umset- 
zung wird besprochen. 
Wissenswertes zur Window- 
programmierung, String- 
verarbeitung, Tasten- 

und Zeichenbelegung und 
der Optimierung der Re- 
chengeschwindigkeit er- 
fährt man anschließend 
gut verpackt in zahlrei- 
chen kleinen Anwendungs- 
beispielen. Auf etwa 40 
Seiten wendet sich der 
Autor dann der Grafik- 
programmierung zu. Die 
wesentlichen Punkte 
zeigt er auf, ohne dabei 
ins Detail zu gehen. 

Auch hier hätte man 
etwas mehr Tiefgang er- 
warten können, der über 
die üblichen Grafikanwen- 
dungen (Diagramme) hin- 
ausgeht. Erfreulich immer- 
hin, daß zumindest die 
zweite RAM Bank des 
CPC 6128 genutzt wird. 
Das folgende Kapitel 8 
behandelt das Disketten- 
laufwerk. Sequentielle 
und relative Dateiverwal- 
tungen stellen sich vor. 
Am Beispiel einer Buch- 
datei werden beide Zu- 
griffsarten erklärt. Wie 
man die zweite Speicher- 
bank als RAM-Floppy 


nutzen kann, verdeut- 
licht das Programm im 
relativen Zugriff. Die 
letzten 50 Seiten des Bu- 
ches sind mit Anwender- 
ee gefüllt. Alle 
ogramme werden — 
wie bisher auch — aus- 
führlich erläutert und 
dokumentiert. Der An- 
wender kann an dieser 
Stelle sein vorher erwor- 
benes Wissen vervollstän- 
digen und überprüfen oder 
sich an gleicher Stelle An- 
regungen zu eigenen Pro- 
grammentwürfen, Ver- 
besserungen etc: holen. 


FAZIT: BRAUCHBAR, 
ABER ES HÄTTE MEHR 
WERDEN KÖNNEN 


Insgesamt besehen ist das 
Basic-Buch zum CPC 6128 
nicht das ‚‚Non-plus- 
Ultra‘ des Machbaren, 
um sich im Basicprogram- 
mieren weiterzubilden. 
Dennoch kann man doch 
so manche nützliche An- 
wendung oder Program- 
miertechnik für den CPC 
6128 erfahren, die sonst 
nur mühsam aus den ent- 
sprechenden Fachzeit- 
schriften zusammenge- 
tragen werden müßte. 
Um auf die eingangs ge- 
‚stellten Fragen zurückzu- 
"kommen: Wesentliche 
Teile des Buches sind nur 
Kommentar zum Hand- 
buch. Der vorteilhaften 
zweiten Speicherbank des 
6128 wird allerdings aus- 
führlich Raum gegeben 
und mit dem Aufbau ei- 
ner RAMdisk stehen auch 
nützliche Tips zur Verfü- 
gung, die sich unter einem 
CPC 464-Titel nicht nach- 
lesen lassen können. 
(Gerhard Wertenbach) 


SCHÜLER PROGRAM- 
MIEREN IN TURBO- 


PASCAL 
W. SCHUPP/M. WOITE 


Turbo Pascal, der Spitzen- 
reiter unter den Pascal- 
Dialekten, erfreut sich 
weiterhin großer Beliebt- 
heit. Auch die Schulen 
haben in letzter Zeit, 
schon aus Gründen der 
Kompatibilität und Zu- 
kunftsorientierung, 


_ SERVICE 


(Turbo) Pascal in den 
Lehrplan ihres Informa- 
tikunterrichtes aufge- 
nommen. 


'W.SCHUPP mM WOITHE 
SCHÜLER 
PROSRAMMIEREN 
IN TURBO- 


ScHÄNINGH 


Mittlerweile ist auch die 
Schulbuchfrage auf die- 
sem Gebiet zufrieden- 
stellend gelöst. Kaum 

ein großer Schulbuchver- 
lag verzichtet noch auf 
die Herausgabe von Lehr- 
und Arbeitsbüchern zum 
Thema (Turbo) Pascal. 
Viele dieser Schriften 
sind für den Pascal-Neu- 
ling als Einstieg bestens 
geeignet; besonders dann, 
wenn der Anfänger in 
Form eines Kurses behut- 
sam in die Materie 
eingeführt wird. 


PASCAL FÜR DEN 
EINSTEIGER: 

SCHUL- UND LEHR- 
BUCH DER BESSEREN 
SORTE 


Um mit dem vorliegenden 
Buch von Schupp und 
Woithe Lernerfolge zu 
erzielen, sind keinerlei 
Vorkenntnisse erforder- 
lich. Im Anhang erfährt 
der Leser Wissenswertes 
über den Umgang mit 
den Turbo Pascal Instru- 
mentarien. Dies geschieht 
in einer kurzen, aber 
prägnanten Zusammen- 
fassung. Diesen Teil des 
Werkes sollte man zuerst 
durcharbeiten. 

Danach kann der Leser 
den Einlaß in die 
„Kunst“ der Pascal- 
Programmierung begeh- 
ren. Daß dieses Vorhaben 
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kein Spießrutenlauf wird, 
dafür haben die Autoren 
gesorgt. Von der ersten 
Seite an wird der Leser 
zum Programmierer, wenn 
auch zunächst an winzi- 
gen Listings, die stufen- 
weise in unterschiedlichen 
Nutzanwendungen erwei- 
tert werden, bis hin zu ei- 
ner kompletten Lager- 
(Datei)verwaltung. Metho- 
disch bleibt am Vorgehen 
der Autoren wenig zu 
verbessern. Die Darstel- 
lung der Programmierauf- 
gaben — insgesamt sind es 
140 — ist ebenso gelun- 
gen, wie die Progression 
(Anstieg des Schwierig- 
keitsgrades) des Kurses 
oder die programmäßige 
Umsetzung. 

Der übersichtliche und 
saubere Druck und das 
klare Schriftbild (mit brei- 
tem Rand für Notizen!) 
heben sich zudem vom 
Standard der Druckerzeug- 
nisse wohltuend ab. Das 
gleiche gilt für die (an- 
fangs) kapitelweise auf- 
gelisteten Inhaltsfragen 
oder die Vielzahl der ge- 
stellten (Programmier)- 
aufgaben. Nach jedem 
Lernabschnitt hat der 
Leser die Möglichkeit, 
sich selbst zu testen, das 
Gelernte an Transfer- 
lösungen zu festigen 

und sich durch die so ge- 
wonnenen Erfolgserleb- 
nisse neu Zu motivieren. 


FAZIT: MIT DEM 
AUTOR AUF DU UND 
DU — PASCAL- 
ANFÄNGER AUF DIE 
SCHULBANK 


Wen es nicht stört, dauernd 
mit „Du“ angeredet zu 
werden, und wer das 
Selbstbewußtsein auf- 
bringt, den Buchtitel 
(Schüler...) direkt auf 
sich zu beziehen, der 
kann mit diesem Buch 
sicher in Turbo Pascal ein- 
steigen, auch dann, wenn 
es nicht speziell für die 
CPC-Typen geschrieben 
wurde. Als Lernkurs für 
Anfänger ist dieses Werk 
bestens geeignet, Fort- 
geschrittenen ist es 
allerdings nicht zu emp- 
fehlen. 

(Gerhard Wertenbach) 


ECHO . 


DIALOG 


BITTE 


Der Komplex ‚„Kopier- 
schutz“ spricht mich dies- 
mal ganz besonders an. 
Ich bin nicht an Spielen 
interessiert, sondern an 
den sogenannten Anwen- 
derprogrammen. Gerade 
diese Programme aber be- 
reiten dem Anwender 
wegen des Kopierschut- 
zes erhebliche Probleme! 
Ich verkenne nicht das 
Recht des Programmie- 
rers an den Früchten sei- 
ner Arbeit; bin aber der 
Ansicht, daß der Zeit- 
aufwand zum Program- 
mieren immer ausgefeil- 
‚tere Schutzmechanismen 
das Programm nicht nur 
erheblich verteuert, son- 
dern auch in der Anwen- 
dung bei dem User unnö- 
tig Ärger und damit dem 
Programm ein schlechtes 
Image einbringt. 
Meine Einwände gegen 
den Kopierschutz: 
1. Fast jeder Kopierschutz 
macht es erforderlich, daß 
die Diskette nicht schreib- 
geschützt sein darf. Wie 
schnell dann bei fehler- 
haften Eingaben wert- 
volle Programmteile zer- 
schossen sind, liegt auf 
der Hand. Die Zusiche- 
rung des Herstellers, 
schnell und billig(?)Er- 
satz zu liefern, ist auch 
mit Problemen behaftet. 
Mir selbst sind zweimal 
Disketten-Lieferungen 
durch magnetische Bear- 
beitungsanlagen der Post 
beeinflußt worden. 
2. Wenn mir als Anwen- 
der ein Programm nicht 
mit seinen Leistungen zu- 
sagt, kann ich es nicht 
meinem Bedarf anpassen, 
was mir als Eigentümer 
des Programmes ja zu- 
steht. Versuchen Sie ein- 
mal, einen Programm- 
autor oder den Hersteller 
zu einer Modifizierung 
zu bewegen. 
Ich habe das Empfinden, 


Das Thema Kopierschutz 
brachte viele Leser dazu, 
uns zu schreiben. Einige 
Zuschriften enthielten 
die Bitte, den Namen 
nicht zu nennen. Wir sind 
dieser Bitte generell 
nachgekommen, da es 
sich nicht im eigentlichen 
Sinn um anonyme Zu- 
schriften handelte und 
wir Verständnis für die 
Sorgen der Privatanwen- 
der aufbringen. 


daß die Hersteller den 
Standpunkt vertreten, 
„wenn das Programm 
den Anforderungen des 
Anwenders nicht ent- 
spricht, hat der Anwen- 
der eben seine Anforde- 
rungen soweit zu reduzie- 
ren, daß das unvergleich- 
lich gute und einmalige 
Programm dem An- 
spruch natürlich ent- 
spricht‘“. 

3. Selbst bei optimalem 
Ausbau des CPC Systems 
ist Speicherplatz rar. Mit 
welchem Recht zwingt 
mich der Programm-Her- 
steller, wegen eines Pro- 
grammes von vielleicht 
20-25 K Diskettenkapa- 
zität, die Speichermög- 
lichkeit eines ganzen Lauf- 
werkes nicht nutzen zu 
können, weil die geschütz- 
te Diskette im Laufwerk 
verbleiben muß? 

4. Nicht wenige Program- 
me sind modular aufge- 
baut. Ich sehe nicht ein, 
weshalb ich nicht berech- 
tigt sein darf, in meine ei- 
genen Programme, soweit 
ich sie nicht vermarkte, 
Teile des gekauften Pro- 
grammes, welches ja mein 
Eigentum ist, einzubinden. 
5. und letztens: Es ist 
doch wirklich lachhaft, 
wenn mir ein Hersteller 
ein Utility verkauft, mit 
dem ich in geschützte 
Programme „‚hineinse- 
hen‘ kann — sogar in an- 
dere Programme des Her- 


stellers — und dann dieses 
Programm selbst schützt. 
Daher abschließend mei- 
ne Ansicht zu dem 
Komplex: Programmschutz 
ist für den befähigten An- 
wender kein Hindernis, 
nur eine gewisse Hürde. 
Dem nicht befähigten An- 
wender nützt es gar nichts, 
wenn das Programm 
„offen“ ist, da er es doch 
nicht versteht. Der beste 
Kopierschutz ist ein sehr 
gutes Programm mit ei- 
nem sehr guten Hand- 
buch. 

M.D. 


Mein Name tauchte ir- 
gendwann einmal in der 
Liste eines Raubkopie- 
rers auf, der mich wohl 
als zukünftigen Kunden 
betrachtete. Eine Haus- 
durchsuchung durch die 
Polizei und die Beschlag- 
nahme sämtlicher Disket- 
ten und des Rechners 
waren die Folge. Den 
Computer und meine 
Textverarbeitung (Dok- 
torarbeit!) bekam ich zwar 
am gleichen Abend wieder, 
auf den Rest konnte ich 
jedoch noch lange war- 
ten. Gegen den Auftritt 
der Polizei und den da- 
nach entstandenen Um- 
stand schützte mich 
auch nicht die Tatsache, 
daß ich noch nie mit ei- 
ner Raubkopie zu tun 
hatte. 


M.T. 


Nichts gegen Ihre Mei- 
nung, man müsse Soft- 
ware zu Sammlerobjekten 
machen. Auch ich möch- 
te lieber jeden Monat ein 
Original-Programm kau- 
fen. Wenn jedoch die 
Luxuspackung ein mise- 
rables Spiel an die 
100 -DM-Grenze hebt, 
Kann ich nicht mithalten. 
Sammlerleidenschaft ein- 
mal vorausgesetzt, bleibt 
mir dann nur noch der 
Ball einer Raubkopie. 
.K. 


Softwareverlage übertrei- 
ben doch mit Ihren Ver- 
lustsummen. Obwohl ich 
mich sehr intensiv mit 
dem Computer beschäfti- 
ge, habe ich noch nicht 
eine Anzeige gesehen, 
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bei der es um den Verkauf 
von Raubkopien ging. 
Meist sind es Tauschange- 
bote, möglicherweise so- 
gar Original-Programme. 
Allerdings benötigen 

die Spielehersteller hin 
und wieder ein Opfer- 
lamm. Bei diesem werden 
dann die Wahnsinnssum- 
men verlangt, damit der 
Prozeß überhaupt noch 
abschreckende Wirkung 
hat. Beim Urteil dürfte 
nämlich weniger heraus- 
kommen. Bedenken Sie 
doch, daß es Ihren Rech- 
nungen widerspricht, nach 
der ein Autor zu wenig : 
Geld bekommt, wenn ein 
Schadensfall derartig 
hoch beziffert werden 


RHEINISCHER 
COMPUTERMARKT 
IN BONN 


Bisher etwas im Abseits 
stehend (bitte nicht poli- 
tisch verstehen) versucht 
nun auch Bonn, am 
Computerboom zu 
rn Der erste 

heinische Computer- 
markt soll am 8. Novem- 
ber als Verkaufsmesse 
stattfinden. Verantwort- 
lich ist die EDV Organi- 
sation Rausch & Haub, 
Berliner Freiheit 16, 
5300 Bonn 1. Da die 
Messe recht verkaufsgün- 
stig vor Weihnachten statt- 
findet, erwartet man ei- 
nen großen Besucheran- 
drang. Zusätzlich plant 
der Veranstalter einen 
Flohmarkt, der auch für 
nicht ganz so kommer- 
ziell orientierte Freaks 
und User interessant sein 
dürfte. Wer also noch ei- 
nen Stand haben will, soll 
sich an obige Adresse 
wenden. 


_DIALOG 


WER KANN 
HELFEN? 


Ich kaufte mir Ende 1985 
die 64 K-Speichererweite- 
rung von Data Media, 
weil eine Speichererwei- 
terung von der Firma 
Vortex nach Auskunft 
verschiedener Händler für 
den Schneider CPC 664 
damals nicht erhältlich 
oder in Aussicht war, ich 
jedoch dringend Arbei- 
ten mit den Programmen 
„Multiplan“, „dBase‘“ 
und ‚WordStar“ zu erle- 
digen hatte. Nach Ver- 
knüpfung mit der Datei 
„GERM.COM“ der Firma 
Data Media lief dBase 
gut und komfortabel. Je- 
doch stellte ich später 
fest, daß das Programm 
„ZIP.COM“ in der von 
Markt & Technik instal- 
lierten Version nicht läuft, 
sondern beim Aufruf das 
Laufwerk ohne Unterbre- 
chung laufen läßt und 
sich dabei aufhängt. 

Bei „Multiplan‘“ bleiben, 
im rechten Bildteil, ca. 

ab Spalte 45, beim Rol- 
len Reste von vorher un- 
gelöscht stehen, die 
allerdings beim Überfah- 
ren mit dem Cursor, bzw. 
beim Abspeichern und 
Rückladen verschwinden. 
Außerdem liefern breite 
Tabellen beim seitlichen 
Rollen einen Zeichenver- 
satz. 

Bei „‚WordStar“, früher 
ohne bzw. mit inaktiver 


Speichererweiterung fehler- 


frei, jedoch wegen der ein- 
geschränkten Blockver- 
schiebung unkomfortabel, 
tritt mit aktiver Speicher- 
erweiterung folgender 
Effekt auf: Das Textzei- 
chen aus Spalte 64 er- 


scheint auf dem Rand bei 
den Steuerzeichen, Spalte 
64 dagegen ist leer. Bei 
Zeilenumbrüchen und 
Korrekturen in Spalte 64 
oder rechts davon kön- 
nen dann ganz unerwar- 
tete Effekte in Form von 
eigenartig kombinierten 
Textfetzen auf dem Mo- 
nitor auftreten, so daß 
man sich fast nicht traut, 
den Text abzuspeichern, 
denn was beim Einfügen 
und Löschen in der die 
Spalte 64 belegende Zeile 
und in der nächsten pas- 
siert, ist nicht zu über- 
schauen. Beim Scrollen 
und Speichern/Rückladen 
ist der Spuk zum Glück 
wieder in Ordnung. 

Der Fehler erscheint mir 
bei ‚„WordStar‘“ und 
„Multiplan“ ähnliche Ur- 
sachen (Bildschirmspei- 
cher) zu haben. Ich wäre 
Ihnen dankbar, wenn Sie 
mich bei der Fehlerbe- 
seitigung unterstützen 
könnten. 

Dipl.-Ing. Erdmann 
Hollborn, 

Jakobsgarten 8 

6700 Ludwigshafen 27 


Die von Ihnen geschilder- 
ten Probleme treten an- 
scheinend nur bei der 
Data Media Speicherer- 
weiterung auf, über die wir 
nicht verfügen. Da diese 
auch nicht mehr im Han- 
del ist, hoffen wir, Ihnen 
mit der Veröffentlichung 
Ihres Briefes zu helfen. 
Vielleicht findet sich 

ein kollegialer Leser, der 
Ihnen weiterhelfen kann. 


AKTIV SOMPUTERN 
MIT 


SCHNEIDER 
AKTIV 


Sucht Ihr Spiele? Ich habe 
sie! Sendet mir einen be- 
spielten Datenträger. Hel- 
mut Groß, Pastor-Vogt- 
Str. 23 b, 6686 Eppelborn. 
100 % Rücksendung der 
Disk. u. Tapes. TOLL!! 

** TOP-ANGEBOT ** 
Nagelneuer Schneider PC 
1512 SD m. Zubehör (Mon. 
PCMM, Tastatur, Maus, 
Bedien.-Handbuch, System- 
software). Preis VB, R. 
Stephan, Auf dem Knüll 
10, 4830 Gütersloh 1, Tel. 
05241/27462 

***** TOP GAMES ***** 
1 Disk. bespielt m. Euren 
Spielewünschen f. Super- 
preis v. 10 DM! Fordert 
kostenlose Liste an bei: 
Lars-P. Kuhr, Kaiser-Hein- 
rich-Str. 7, 8354 Metten. 
100 % Antwort. 

PC 1512 GESUCHT. Ange- 
bote bitte an Tel. 0931/ 
44660 

Verk. Schneider CPC 464 
m. Grünmon., fast wie neu. 
Preis VB 300 DM od. m. 
Drucker NLQ 401 VB 650 
DM. Holger Hipperling, 
Jägerfeldweg 52, 2100 Ham- 
burg 90, T. 040/7606612 
Suche Mitgliedschaft in einem 
CPC-Club, Raum Köln. 
Außerdem suche ich Spiele 
u. Programme f. CPC. Nur 
Orig., keine Kopien. Arnold 
Kaufmann, Apostelnstr. 

13, 5000 Köln 1 
VERKAUFE SPIELE UND 
BÜCHER (z. B. Hacker II, 
Mission Elevator usw.) zu 
sehr günst. Preisen. Liste 
anfordern! Tel. 04499 / 
2794, Gerd Brosten, Nord- 
loh, Brubodeweg 3, 2913 
Apen 

Ich bin im Besitz eines 
Schneider CPC 464 sowie 
PC u. suche dringend Kon- 
takt zu anderen Usern IBM- 
kompatibler Rechner im 
Raum Kassel. Tel. 0561/ 
895548 

Verk. Softw. zu Wahnsinns- 
preisen. Preisliste kostenlos 
anfordern bei: Kai Schwett- 
mann, Steubenstr. 6, 4990 
Lübbecke 1 (nur f. CPC) 
Schneider Grünmonitor GT 
65 m. Bildschirmfilter, 4 
Wo. alt, 120 DM. Dipl.- 
Ing. D. Heine, Hohlstr. 23, 
4220 Dinslaken, T. 02134/ 
95839 


TAUSCHE Software D/K 
f. 464. Liste an Eckhardt 

Schaefer, Rhein-Maaß-Str. 
3,5100 Aachen. Rückant- 
wort garantiert. 


Verk. Softw. zu Wahnsinns- 
preisen: 1942 43,90; They 
sold a Million I, II, III 52,90; 
Top Gun 42,90; Hacker 

II 47,90; Aliens 47,90; 
Sorcery 49,90 u. v. m. 
Preisliste anfordern bei 

Kay Schwettmann, Steuben- 
str. 6, 4990 Lübbecke 1 
(nur f. CPC) 

Wer schickt mir eine Bau- 
anleitung bzw. einen Schalt- 
plan einer Speichererw. f. 
CPC 464 zu? Christof Eisen- 
reich, Hauptstr. 9, 7902 
Blaubeuren 2 

Joyce, 4 Mon. alt, kompl. 

f. 1.200 DM abzugeben! 
Tel. 0202/428347 ab 18 
Uhr 

+ STOP + SCHNEIDER- 
PROGRAMME FÜR CPC 
+ STOP + zu wahnsinnigen 
Superpreisen. Liste gg. 
Rückporto bei Thomas 
Knapek jun., Eichenweg 

21, 8312 Dingolfing anfor- 
dern. Auf gehts! Superpreise! 
Schon ab 2 DM! 

Verk. Grünmonitor v. Schnei- 
der. Preis? Eure Angebote! 
Stefan Laier, Flurweg 10, 
7611 Oberharmersbach 
VERKAUFE wg. System- 
wechsels dBase II u. Multi- 
plan f. Schneider CPC 6128 
auf 3”-Disk. f. je 150 DM 
m. je einem dt. Handbuch. 
Also gleich anrufen, aber 
erst ab 18 Uhr. Versand nur 
per Nachnahme. Tel. 04141/ 
66871 

Suche 3”-Disk.-Laufw. an- 
schlußfertig an Vortex 

F1D. Angebote (auch v. 
Händlern) an: Peter Eitner, 
Nußbaumweg 16, 7110 
Öhringen, Tel. 07941/ 

2572 

Suche f. CPC 464 Erst- 
Disk.-Laufw. u. Textverarb.- 
Prog. sowie gute Spiele u. 
Sprachsynth.! Angebote 
schriftl. an: Roman Schnei- 
der, Lessingstr. 11, 5657 
Haan 1 

Suche Lernprog. u. Spiele f. 
6128 u. suche besonders 
Kontakt. Liste, Anfragen 
an: Marcus Hoffmann, 
Garsdorferstr. 8, 5010 Berg- 
heim, Tel. 02271/51692 


Orig. ComPack u. TexPack — 
das kommerzielle CPC- 
Anwenderpaket f. Klein- 
betriebe — f. VHB 400 DM 
abzugeben. Tel. 05403/ 
4597 ab 18 Uhr 
PUBLIC DOMAIN USER 
GRUPPE — Wir geben CP/M- 
Softw. auf 3”-Disk. f. CPC 
464/6128 zu einem ger. 
Unkostenbeitrag ab. Etwa 
2000 dok. Programme er- 
hältl.! Cat.-Disk. 12 DM, 
Info 2 DM Rückp. PDUG, 
Postfach 1118, 6464 Lin- 

« sengericht 1 


Eilt! 512KB-Vortex-Speicher- 
erw. u. Akustikkoppler 

f. CPC. Bitte preiswert! 

Tel. 030/6247829, Andreas 
Zu verk. f. CPC: Textomat 
60,-; Datei Star 60,—; 
Textmanager 50,-; CPC 
Text u. Adreßverw. 60,—; 
HiSoft Pascal 120,—; Lager- 
bestandsverw. 60,—. An- 
wendungsprog. u. viele 
Spiele auf C/D. Tel. 06103/ 
25931 

Lottostatistik CPC 464 nur 
DM 29,90. Alle Zahlen seit 
Beginn der Ziehungen (1955) 
gespeichert. Schnelle Aus- 
wertung durch Maschinen- 
sprache. Info gg. Rückporto 
bei: Peter Eitner, Nußbaum- 
weg 16, 7110 Öhringen, 

Tel. 07941/2572 

Verkaufe wg. Systemwechsel 
CPC 664 m. Grünmon. 

inkl. MP-2 Farbmodulator, 

6 Monate alt, Preis 700 DM 
VB. Versch. Prog. auf Disk. 
sowie System-Disk. u. Buch. 
Klaus Lubig, Glattbacher- 
str. 29, 8750 Aschaffen- 
burg, T. 06021/46422 
Software? Für CPC 464 
Spiele auf Tape zum Super- 
preis von 1,— bis 5,— DM 

je Spiel. Interessenten for- 
dern bitte m. Rückporto 

die Superliste an bei Thomas 
Knapek jun., Eichenweg 

21, 8312 Dingolfing 

* CHEMIE — CHAMP * 
Periodensystem, Alles über 
Elemente, Atommodell 

n. Bohr, Definitionen, Ionen- 
gitter, DMP2000-Ausgabe; 
50 KB auf 3” Disk. f. 6128, 
664, 464 für 30 DM (Schei- 
ne) bei T. Hermann, Koppen- 
wald 5, 7614 Gengenbach 
Verk. Frogger für Schnei- 
der PC! Preis (inkl. Porto): 
40 DM. Tel. 02101/69689, 
Hans-Georg Eßer, Tilsiter 
Weg 3, 4044 Kaarst 1 


BÖRSE 


Verkaufe CPC664 m. Farb- 
mon. u. Mirage Imager, 
Lightpen, Cumana 5.25 
Zweitlaufw., Maus, Drucker- 
kabel, Bücher u. Software 
£. nur 1.000 DM. Tel. ab 

19 Uhr 06039/1080 
PC1512: 2. Laufwerk 295 
DM. Tel. 02244/3811 
Suche billige Spiele! Vor 
allem: Jack the Nipper, 
Werner, FireLord, Nodes 
of Yesod, Zorgos, Hexen- 
küche II usw. Nur Tape! 
Nur CPC464! Tel. 07306/ 
33182 ab 14 Uhr. Verlangt 
Matthias! 

CPC 464 Software zum hal- 
ben Preis (auch einzeln): 
Masterfile 464, Statistic- 
Star, Data-Becker-Bücher: 
CPC 464 f. Einsteiger; Tips 
u. Tricks; Basic-Programme 
u.a. Tel. 06432/4932 
Suche Computer-Brieffreun- 
de! Solltest Du auch die 
Hobbys Computer u. Brie- 
fe-Schreiben haben, bist 

Du bei mir an der richtigen 
Adresse! Shelagh Albrecht, 
Oberndorferstr. 22, 6349 
Siegbach 1 

CPC 464 Color, Floppy 
DDI-1, Drucker NLQ 401 
m. Traktor, 2 Joyst., 1 
Staubschutzh. f. Konsole, 

1 Data-Becker-Buch, 21 
Prog. auf Kass. u. Disk u. 

2 Disketten. Neupreis 3.250 
DM, VP 1.700 DM. Tel. 
04561/9854 ab 17 Uhr 
PUBLIC DOMAIN KO- 
STENLOS! 3”-Disk. u. 
frankierten (!) Umschlag 
an Finkemeier, App. 26, 
Zum Rotenberge 19, 44 
Münster. Zurück m. Lisp, 
Prolog, Forth, Assembler 

u. mehr. Packt ein paar 
Eurer Prog. mit drauf! 
Student sucht f. CPC 6128 
Software f. Tiefbau: Mas- 
senerm., Vermessg., LVs 

u. Kalkulation o.ä. 
(Straßenbau). Franz Wutz, 
Sonnenblumenstr. 13, 8429 
Ihrlerstein 

Tausche! Nur Disk.-Software! 
Andreas Ludwig, Wilhelmstr. 
19, 6501 Budenheim am 
Rhein. Bitte Listen zuschik- 
ken. Danke! 

Suche DDI-1 f. CPC 464 

m. CP/M. Angebote an 
Dieter Städtler, Bergener 
Str. 11, 8837 Geyern. Tel. 
09148/295 

Freitag bis Sonntag 


Verkaufe neuwert. CPC 
464 m. Color Monitor (5 
Mon. alt), über 20 Spiele, 
Bücher, Joystick, Listings, 
Zeitschr. u. Handbuch. 
Neupr. über 2.000 DM, 
Kompl.-Preis 1.599 DM. 
Jürgen Freitag, Jägerweg 
11, 8773 Frommersbach 
Verk. CPC-Software auf 
Disk.: Aliens, Starglider 
VB 35 DM; Profi-Painter, 
Platinenkit 50 DM; auf 
Kass.: Impossible Mission, 
Bomb Jack, Gunfright, 
Ping-Pong, Space Invasion, 
The Way of T., Expl. Fist 
Turbo Esprit u. v. a. VB 
5-25 DM, Tel. 02923/1911 
VERK. CPC-664-ANLAGE 
m. Color-Mon., Zweitlaufw. 
sowie einer Menge Orig.- 
Softw. Info: Jörg Speck- 
bacher, Westermannweg 
34, 3000 Hannover 21, 
Tel. 0511/794436 ab 18 
Uhr. Neupreis ca. 5.000 
DM, VB 2.800 DM 


"Schülerin sucht billige Soft- 


ware (Spiele!) auf Kass. 

f. Schneider CPC 464. An- 
gebote an: Antje-Catrin 
Meyer, Bahnhofstr. 7, 3417 
Bodenfelde, Tel. 05572/ 
1606 

SOFTWARE FÜR SCHNEI- 
DER-FANS! 13 Sonderhefte, 
10 davon m. Disk. (6 bzw. 
16 DM). 7 Orig.-Kass. je 

5 DM. Bei Gesamtabnahme 
nur 160 DM. Bitte Liste 
anfordern bei: G. Köneke, 
Westendstr. 26, 6072 Drei- 
eich 

Wer schreibt mir einfache 
Prog. f. CPC 464 u. Druk- 
ker NLQ 401 (Listing u. 
Kass.)? Werner Spingies, 
Edvard-Grieg-Str. 13, 2370 
Rendsburg 

Suche kaputte Computer 
(Schneider/Atari/Commo- 
dore) unter 10 DM. Auch 
kaputte Hardw. (Disk.- 
Station). möglichst im 
Raum Calw/Freudenstadt. 
Kaufe nur die ersten 5 An- 
gebote. Anruf Mittwoch 
von 19—21 Uhr unter 07459/ 
488 

+++ VERKAUFE SOFT- 
WARE +++ Bomb Jack 2, 
3D Grand-Prix, Spindizzy, 
Elite je 30 DM, Winter 
Games 35 DM. Meldet 
Euch bei: Marth Laurent, 
Nr. 3, L-9744 Deisselt, 
Tel. 00352/94112 od. R. 
Daubach, Nr. 12, L-5220 
Contern, Tel. 35599 


Gratisinfo f. jeden CPC u. 
PC 1512 erhalten Sie bei 

Fr. Neuper, Postf. 72, 8473 
Pfreimd. Postkarte genügt. 
Bitte Computertyp angeben! 
SPIELESÜCHTIGER sucht 
dringend zuverläss. Tausch- 
partner. Nur 3”-Disk. Bitte 
um Zusendung von Listen. 
A. Wollenhaupt, Im Teich 
55, 6085 Nauheim, Tel. 
06152/69556 

VERKAUFE: CPC 464 
grün, DDI-1, DMP 2000, 
MP-1, RS232, Dataphon, 
Kabel, 16 Disk., L-Pen, 

Joy, div. Softw., C-Hefte, 
Bücher u. v. m. Alles zus. 
nur 1.600,—. Tel. 0208/ 
20730 ab 17 Uhr 

Achtung, CPC-User! Tausche 
ca. 120 K. Listing-Softw. 
auf Tape gg. Soft- bzw. 
Databoxes. D. Kramer, 
Eichenstr. 17, 3549 Volk- 
marsen 

Suche Softw. f. CPC 6128. 
Angebote bitte an Timo 
Glaser, Florastr. 34, 5650 
Solingen 1 

!!! HEY FREAKS !!! Ich 
verk. folgende CPC-Orig.- 
Disk.: Locksmith, Laser- 
Basic, Exp. Fist, Fight. 
Warrior, Meltdown (6128) 
je 25 DM! Tel. 08851/5528 
Public Domain f. Schneider 
CPC. Bisher 5 Disk. Liste 

gg. 1,50 DM. Computer 
Club Rinteln, Karsten Meier, 
Langenfelderstr. 24 a, 3262 
Auetal, Tel. 05752/601 
FUNDGRUBE FÜR BAST- 
LER! Speicher- u. Logik- 
Chips u. andere Bauelemente 
40 DM. Regelbares Doppel- 
Netzteil f. die Werkstatt 

nur 30 DM. Bei Gesamtab- 
nahme nur 50 DM. G. Köne- 
ke, Westendstr. 26, 6072 
Dreieich 

CPC 46e, farb., DDI-1, 3 
Data-Becker-Bü., Hardw., 
inkl. 30 Disk. u. 6 Kass. 

zu verk. VB 1.200 DM. 
Carsten Rebber, Breitestr. 
1,5600 Wuppertal 21, 0202/ 
464006 

Zu verk. NLQ 401 m. Trak- 
tor u. Kabel f. 464. Ange- 
bote an Tel. 08262/462 
Tausch! Suche Spiele od. 
Anwendersoftw., möglichst 
f. CPC 6128. Weitere Aus- 
kunft unter 08638/1852/ 
8264, Waldkraiburg, R. 
Hanuschek 


TEST 


BALLER-ORGIE 


„Hundekampf“ im Weltraum? Keine Angst, es handelt sich nicht 
etwa um die Fortsetzung der Muppet-Serie „Schweine im Weltraum”, 
sondern es ist die umgangssprachliche Übersetzung von Zweikampf. 
Damit ist eigentlich auch schon alles beschrieben, was den Käufer 
erwartet: Ballerorgien und riskante Ausweichmanöver. Für die neueste 
Defender-Version wirbt man mit dreidimensionaler Vektorgrafik und 
der Tatsache, daß man zu Zweit durchs Weltall düsen darf. Genug 
Gründe, um uns wieder einmal dem „Schlachtfeld Weltraum‘ 
zuzuwenden. 


Wie jede professionelle Software 
gibt es auch hier eine Story, die den 
Käufer in das Spiel einstimmen soll. 
Viel Neues gibt es dabei allerdings 
nicht zu berichten. Wie immer ist 
der Spieler auch bei diesem Produkt 
der Retter des Universums. Und 
wenn er es nicht schafft, die Invaso- 
ren zurückzudrängen und zu ver- 
nichten, dann droht die Versklavung 
der Menschheit. Versetzen Sie sich 
also in folgende Situation: 

Wir schreiben das Jahr 2187, wahr- 
scheinlich wieder mal ein Freitag 
der Dreizehnte, denn in dem Raum- 
sektor Alpha Centauri haben die 
Wissenschaftler entdeckt, was sie 
schon immer befürchtet haben: Eine 
Unregelmäßigkeit im Raum/Zeit- 
Gefüge läßt sie das Schlimmste ah- 
nen. Diese Unregelmäßigkeit hat ein 
Loch entstehen lassen, durch das 
ganze Sonnensysteme in ferne Ga- 
laxien geschleudert werden, ohne 
Aussicht, jemals wieder in das rich- 
tige Raum-Zeit-Gefüge zurück zu- 
kehren. 

Zum Glück haben einige Wissen- 
schaftler in der Vergangenheit diese 
Katastrophe vorausgesehen und 
schon damals Vorkehrungen getrof- 
fen, um das Loch im Raum-Zeit- 
Gefüge zu stopfen. Sie verteilten 
100 Teile für den Bau eines Warp- 
Feldgenerators überall im bekann- 
ten Universum, man konnte ja nicht 
wissen, wo das zukünftige Unglück 
einmal eintreten würde. Dieser 
Generator ist in der Lage, das dro- 
hende Unheil aufzuhalten. Er des- 
aktiviert das Loch wieder und der 
Rest der Menschheit kann weiter 

in Ruhe und Frieden leben. 

9 Teile müssen Sie finden — 


„DO IT YOURSELF’-WARP- 
GENERATOR 


nur, wo sind diese Teile versteckt? 


Diese neun Teile müssen Sie 

in Ihr Raumschiff aufnehmen und 
dann in der Nähe des Lochs plazie- 
ren. Kein Pilot der World Corpora- 


tion wagt sich, diesen risikoreichen 
Einsatz zu fliegen, denn das Loch 
wird von den Invasoren hartnäckig 
verteidigt und die schießen sofort zu- 
rück, wenn sie einen terristischen 
Jäger entdecken. Zwar ist es schon 
gute Sitte, daß der Held immer al- 
leine kämpft, aber zu „Dogfight“ 
können Sie auch mal den Nachbarn 
oder die Nachbarin einladen. Geflo- 
gen wird dann in zwei unabhängig 
voneinander zu steuernden Raum- 
schiffen. 


Egal ob Sie alleine oder zu zweit 
spielen, der Ausblick aufs All ist 
stets zweigeteilt. Einzelgänger müs- 
sen mit der linken Hälfte auskom- 
men, während menschliche Spiel- 
partner auf den rechten Part zugrei- 
fen können. Stimmt die Flugrich- 


tung, dann kann man das Raumschiff 


seines jeweiligen Partners tatsächlich 
vor sich sehen. Also nicht sofort 
schießen. 

Die „Fenster ins All“ sind natürlich 
nicht alles, denn so ein Raumjäger 
muß ja kontrolliert werden. Unter 
diesen Windows können Sie also 


noch fünf Kontrollinstrumente erken- immer relativ zur eigenen Position. 


89 


nen, die verschiedene Funktionen 
haben. Sie erhalten damit Informa- 
tionen über das jeweils aktivierte 
Waffensystem sowie die (sehr) sche- 
matische Darstellung des gegnerischen 
Raumschiffes. Darauf sind die Punk- 
te markiert, die die schwächste Stel- 
le in der Panzerarmierung symboli- 
sieren. Und an diesen Stellen ist der 
Gegner dann verwundbar, darauf 


ZEITLIMIT SORGT FÜR DEN 
STRESS — INVASOREN FÜR 
DIE GEFAHR 


müssen Sie zielen, und zwar solange, 
bis das Feindschiff explodiert. 

Als weiteres Kontrollinstrument be- 
findet sich auf der Instrumenten- 
skala noch ein galaktischer Kompaß. 
Im Schnittpunkt der horizontalen 
und der vertikalen Linien befindet 
sich das galaktische Loch. Damit 
können Sie dieses Loch jederzeit 
aufsuchen, vorausgesetzt, die Feind- 
schiffe lassen dies zu. Ihre eigene 
Position wird durch einen blinken- 
den Punkt dargestellt. 

Weiterhin erkennen Sie auf dem 


STARLIGHT 
SDOFTHARE 
&iasrt 


Ballerorgie: Dogfight 


Kontrollpult noch die Zeit, die Ih- 
nen zur Erfüllung Ihrer Mission ver- 
bleibt. Insgesamt stehen Ihnen 30 
Minuten zur Verfügung. Und auf 
dem letzten Instrument erkennen 
Sie die Anzahl und Art der im 
Missionsverlauf gesammelten Gene- 
ratorteile. 

Neben diesen Anzeigen werden die 
Position von Planeten, den versteck- 
ten Generatorteilen und von den 
anfliegenden Feindschiffen auf dem 
Radarschirm dargestellt, und zwar 


Achten Sie aber darauf, daß der 
Schirm eine dreidimensionale Dar- 
stellung projiziert. 


a ZUM 
TANKEN UND ZUR 
MUNITIONSBESCHAFFUNG 


Die Anzeigen für Treibstoff und den 
Schutzschildzustand müssen Sie stän- 
dig im Auge behalten. Droht ein 
Treibstoffmangel, so fliegen Sie den 
nächsten Planeten an. Dort können 
Sie aber auch Ihre Munition und die 
passive Bewaffnung ergänzen. 

Wenn Sie zwei Generatorteile aufge- 
nommen haben, so plazieren Sie sie 
schnellstens an dem galaktischen 
Loch, denn mehr als zwei können 
Sie nicht transportieren, schließlich 
haben Sie einen Kampfjäger und kei- 
nen Raumtransporter. Wenn Sie 
dann zwei Bauteile in der Nähe des 
Loches im Raum-Zeit-Gefüge pla- 
ziert haben, wird aus dem ursprüng- 
lichen 9-Eck dann ein 7-Eck und 

so weiter. Bis das Loch dann ge- 
schlossen ist, müssen Sie es minde- 
stens fünfmal anfliegen. 


AUCH DAS NOCH: 
DIE WARP-TEILE SIND 
RADARGESCHÜTZT 


Solange sich in einem Raumsektor 
noch Feindschiffe befinden, sind 
die Planeten und auch die Warp-Ge- 
neratorteile radargeschützt. Sie müs- 
sen also das jeweilige Gebiet von 


RETTER DES UNIVERSUMS 


den Eindringlingen ‚‚säubern“. Erst 
dann sind die Generatorteile sicht- 
bar. Das Universum besteht aus ins- 
gesamt 256 Sektoren. Und überall 
treiben sich die Gegner herum, von 
denen Sie von bis zu vier gleichzei- 
tig angegriffen werden können. 
Wenn Sie Ihre Mission nicht inner- 
halb von 30 Minuten erfolgreich ab- 
solviert haben, so wächst das Loch 
unausweichlich zu einer irrepara- 
blen Größe an und die Versklavung 
der Menschheit durch die Invasoren 
beginnt. 


STEUERUNG SCHNELL 
UND ZUVERLÄSSIG 


Das Spiel wird ausschließlich mit 
dem Joystick gespielt. Für den zwei- 
ten Spieler können beliebige Tasten 
definiert werden, oder man benutzt 
einen Adapter. Erfreulich, daß auch 
dann die Bedienung recht schnell 
reagiert, beide Spieler haben also ih- 
re Raumschiffe ständig unter Kon- 
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trolle. Um den Raumsektor zu wech- 
seln, lassen sich Sprünge durchfüh- 
ren, indem man den Joystick nach 
vorn schiebt und gleichzeitig den 
Feuerknopf drückt. 


GUTER STANDARD DER 
VEKTORGRAFIK 


Mittlerweile gehört die dreidimensio- 
nale Vektorgrafik zum Standard bei 
Defenderspielen. Soweit es „‚Dog- 
fight“ betrifft, läßt sich hierzu 

auch nicht aufßergewöhnliches her- 
vorheben. Allerdings kann auch kein 
Minuspunkt gefunden werden. Die 
Grafik wechselt schnell und ist nicht 
allzu grob ‚‚gezeichnet‘. Der ge- 
wünschte dreidimensionale Eindruck 
kann durchaus aufkommen, wenn 
man intensiv genug spielt. 


FAZIT 


Ein durchschnittliches Raumschlacht- 
spiel ist dieses Dogfight 2187, was 
allerdings nicht unbedingt an der 
Programmiertechnik liegt. Die Bild- 
schirmdarstellung ist gelungen und 
die Raumschlachten werden durch- 
aus glaubhaft abgebildet. Der auf- 
kommende Frust entsteht durch die 
einfallslose Geschichte. Der Spiel- 
anreiz ist nun einmal nicht beson- 
ders hoch. Obwohl das Jahr 2187 
noch in weiter Zukunft liegt, bleibt 
für die Softwarehersteller alles beim 
Alten: Feuer frei. 

Selbst wer sich damit zufrieden gibt, 
kann enttäuscht werden. Die Auf- 
gabe bietet keine besonderen Schwie- 
rigkeiten. Mehrmals konnte bereits 
beim ersten Versuch das ‚‚Univer- 
sum befreit‘ werden. Und so etwas 
hebt ja nun nicht gerade die Moti- 
vation, um es noch einmal zu ver- 
suchen. 

Eine Bewertung des Sounds oder ei- 
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ner Geräuschkulisse konnte nicht 
vorgenommen werden. Bis auf das 
gelegentliche kräftige Zischen der 
Laserkanone bleibt der Computer 
stumm. Viel zuwenig, um ein biß- 
chen Arcade-Atmosphäre aufkom- 
men zu lassen. Bleibt immerhin 
noch eine passabel übersetzte Spiel- 
anleitung, welches damit gerade 
noch ein befriedigendes Gesamt- 
urteil erlaubt. (JE) 
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ONE 


Wer das neueste Produkt in Händen 
hält und die Verpackung mit den 
Screenshots auf der Rückseite näher 
betrachtet, wird glauben, daß es 
sich um eine Fortsetzung des belieb- 
ten Spieles ‚Jack the Nipper“ han- 
deln muß, ein Programm, das vor 
etwa einem halben Jahr in den Soft- 
ware Top Ten zu finden war. Man 
kann sich auch des Eindrucks nicht 
erwehren, daß hier kräftig abge- 
schaut wurde. Nach der langen Lade- 
zeit von 45 (!) Sekunden, die für ei- 
ne Diskette wirklich ungewöhnlich 
ist, erscheint ein grafisch nicht ge- 
rade hervorragendes Ladebild, das 
einen kleinen Jungen mit der Titel- 
schrift darstellen soll. Vor diesem 
Bild bewegte sich ständig ein klei- 
nes Etwas hin und her. 

Nach genauerem Hinsehen kann man 
es als kleines Männchen mit Basken- 
mütze identifizieren. Zu dem ganzen 
Spektakel ertönte eine Melodie, die 
aber nicht nach lustigen Streichen 
und Scherzen, sondern eher nach 
einem Trauermarsch klingt. Drückt 
man nun auf die Leertaste, bricht die 
Musik ab und das Hauptprogramm 
wird sage und schreibe 32 (!) Sekun- 
den lang geladen. Bevor dieses nun 
besprochen wird, hier erst einmal 
die Handlung des Programms: 


BABYSITTING — BEI MANCHEN 
KINDERN EIN ABENTEUER 


Wer kennt nicht den Ärger: Man hat 
ein kleines Kind und ist für den 
Abend eingeladen, findet aber nie- 
manden, der das Kind beaufsichtigen 
will. Dieses Problem hatten wohl 
auch die Eltern des frühreifen klei- 
nen Valentins. Sie beauftragten 
aber schließlich eine Babysitting- 
Firma, auf Valentin aufzupassen. 
Die Firma schickt nun ausgerech- 
net Alfred Martin, von dem Valen- 
tin überhaupt nicht begeistert ist. 
Er hätte nämlich viel lieber 
Samantha als Babysitterin gehabt. 
Der Kleine merkt auch sehr schnell, 
daß Alfred ihm überhaupt nicht ge- 
wachsen ist und genießt dies natür- 
lich in vollen Zügen. Er stellt ihm 
nun Fallen im ganzen Haus und 
seiner näheren Umgebung und är- 
gert den armen Alfred, wo er nur 
kann. 

Und welche Rolle übernimmt der 
Spieler in diesem Programm? Natür- 
lich die von Valentin. Die Hilfs- 
mittel, also Gegenstände, sind im 
Haus verteilt. Es handelt sich hierbei 
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d3m — ein neues Softwarehaus, welches sicher nicht jedem bekannt 
sein dürfte. Hinter diesem Kürzel verbirgt sich allerdings der Infogames- 
Vertrieb und dieser bürgt für Qualität. So wird man sehr schnell 


neugierig auf ‚‚One’”, 


ein Strategiespiel mit 30 Räumen. 


Lange Ladezeit für ein einfaches Titelbild 


um zwei Eimer, zwei Gartenrechen, 
fünf Bälle, zwei Bananenschalen, 
fünf Steine, vier Schemel (bzw. 
Stühle) und eine Torte. Damit kann 
man ja wohl eine ganze Menge an- 
fangen. Für ganz Ideenlose hier ein 
paar Vorschläge: Man kann die 
Eimer mit Wasser füllen und auf die 
Türrahmen stellen. Wenn Alfred 
jetzt durch so eine präparierte Tür 
geht, wird er eine nasse Überra- 
schung erleben. Die einfachsten, 
aber dennoch wirkungsvollen Strei- 
che lassen sich mit Hilfe einer Ba- 
nanenschale erzielen. Wie dies vor 
sich geht, muß ja wohl nicht näher 


FRECHHEIT SIEGT 


erläutert werden. Wer ganz ge- 
mein sein will, der kann auch auf 
der Straße die Gullideckel öffnen. 
Weil der gutmütige Alfred ein biß- 
chen kurzsichtig ist, fällt er auch 
garantiert in jedes Loch. Aber man 
muß hier schon gut aufpassen, 
denn auch Valentin kann in den 
Gulli fallen! 

Valentin hat zehn Taschen. Er kann 
einen Gegenstand, den er aufgenom- 
men hat, mittels der Leertaste in 
die Tasche stecken, wenn er ihn 
nicht sofort gebrauchen will. Am 
unteren Bildschirmrand sind 10 
Kästchen mitdurchlaufender Nume- 
rierung aufgezeichnet. Nimmt Va- 
lentin einen Gegenstand auf, so er- 
scheint er unter einem der Käst- 
chen. Will man ihn gebrauchen, 
dann drückt man auf die entspre- 
chende Zahlentaste und man hält 
den Gegenstand in der Hand. 
Anders als bei ‚Jack the Nipper“ 


One“ keine Frechheits- 
skala, sondern es gibt für jeden 
Streich Punkte. Der aktuelle Punk- 
testand steht am oberen Bildschirm- 
rand. So bringt zum Beispiel ein 

mit Wasser gefüllter Eimer, der 
Alfred auf den Kopf fällt, 1000 


steigt bei „, 


MASSEINHEIT FÜR 
FRECHHEIT? 


Punkte. Einmal Ausrutschen auf ei- 
ner Bananenschale bringt 500 Punk- 
te, genausoviel, als wenn Alfred ei- 
nen Stein an den Kopf kriegt. Links 
und rechts vom Punktestand sieht 
man zwei Köpfe, die zu Beginn 
noch ganz munter aussehen. Be- 
kommt man von Alfred eine Tracht 
Prügel, dann schauen sie schon nicht 
mehr allzu lustig drein. Mit jeder 
Erziehungsmaßnahme von Alfred 
und mit jedem „in den Gulli fallen“ 
werden die Köpfe ein bißchen trau- 
riger. Das geht so fünfmal, danach 
lachen sie wieder und ein Leben ist 
verwirkt. Allerdings scheint Valentin 
davon unendlich viele zu haben. Hat 
er mal wieder dem armen Alfred 
einen Streich gespielt, dann nichts 


wie ab durch die Mitte! Vergeht näm- 


lich zwischen Valentins Streichen 
genügend Zeit, beruhigt sich Alfred 
wieder. Dieser Zeitraum ist propor- 
tional zur Gemeinheit des Streiches, , 
der ihn zuvor aufgeregt hat. 


KEINERLEI SOUND UND NUR 
HALBWEGS PASSABLE GRAFIK 


Während des ganzen Hauptprogram- 
mes ist überhaupt keine Musik zu 
hören. Die einzigen Töne, die der 
CPC von sich gibt, sind einfache 
„lööts‘, wenn Alfred einmal aus- 
gerutscht ist oder etwas an den Kopf 
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bekommen hat. Die Grafik ist auch 
nicht sonderlich berauschend, ob- 
wohl sie einige recht nette Effekte 
hat. Wird zum Beispiel Alfred ein 
Streich gespielt und er fällt darauf 
rein, dann läuft er puterrot an und 
geht auf Valentinjagd. Die einzelnen 
Räume - es gibt insgesamt 30 Stück 
davon — sind alle sehr einfach aus- 
gestattet. Die Einrichtungsgegen- 
stände sind trotzdem oft nur durch 
sehr genaues Hinsehen als solche zu 
erkennen. Dabei nimmt die Spiel- 
fläche selbst ja nur ein Drittel des 
Bildschirms ein. Da hätte man sich 
bei der Gestaltung schon etwas 
mehr Mühe geben können! 


FAZIT: 
NUR KURZFRISTIGER SPASS 


Der kleine Valentin allerdings ist 
ein nettes Kerlchen mit Propeller- 
mütze und Schnuller, Alfred ein ty- 
pischer Büromensch mit Sakko und 
Schnauzbart, der ganz und gar 
nicht nach Babysitting aussieht. 
Andere Personen oder Tiere tau- 
chen in „One“ nicht auf. Das Pro- 
gramm kann eine Zeitlang Spaß ma- 
chen, wird aber dann ziemlich 
schnell langweilig. Dadurch, daß es 
offensichtlich kein richtiges Spiel- 
ende gibt und somit auch ein neuer 
Highscore nichts am Spielverlauf 
ändert, wird die Spielmotivation 
doch ziemlich stark eingeschränkt. 
Wenn schon so gut wie alles von 
„Jack the Nipper‘ abgeschaut 
wurde, dann hätte man auch ruhig 
noch die beschränkte Zahl der Le- 
ben übernehmen können. Aber so 
kann man das Programm ja endlos 
lang spielen, ohne daß man sich ein- 
mal in einer Hiscoreliste verewigen 
darf. Aber in gewisser Weise wird 
einem dies ja schon auf der Rück- 
seite der Verpackung mitgeteilt: 
„One kennt nur die Grenzen Ihrer 
Vorstellungskraft‘. Die nachfolgen- 


den Worte wie ‚‚neuartig und an- 
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steckend“ sind aber stark übertrie- 
ben. Den gleichen, großen Erfolg 
wie „Jack the Nipper‘“ wird das 
Programm ‚One‘ nie erzielen. Es 
kann durchaus eine Weile Spaß ma- 
chen, landet aber garantiert bald 

in der Schublade. (TB) 
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Wenn Sie dieses Spiel gespielt haben, werden Sie sicher in Zukunft 


Ihren Abfallbehälter öfter mal ausleeren. Als abschreckendes Beispiel dient 


die Geschichte von Professor Nitro. Wer Professor Nitro ist, 
wollen Sie wissen? 


Er ist der weltbekannte Gelehrte, 
der an der Verkleinerung von bio- 
logischen Zellen arbeitet. Endlich 
ist es ihm gelungen, die Formel zu 
finden, die es ihm ermöglicht, be- 
liebige Zellen zu verkleinern. Und 
was noch wichtiger ist: Auch die 
Rückverwandlung dieser verkleiner- 
ten Zellen in ihre normale Größe 
ist ihm schon gelungen. 


Gerade hat er sein letztes Experi- 
ment gemacht. Es ist so gut gelun- 
gen, daß er schon mit dem Nobel- 
preis für Medizin rechnet. Er lehnt 
sich behaglich in seinem Drehstuhl 
zurück und kommt ins Träumen. 
Nach diesem mühevollen und lang- 
wierigen Experimenten verspürt er 
Durst und greift nach einem Glas 
Wasser. Hastig trinkt er das ganze 
Glas leer, denn er hat großen Durst. 
Kaum hat er den letzten Schluck ge- 
nommen, so muß er entsetzt fest- 
stellen, daß er ganz klein geworden 
ist, winzig klein. Da dämmert es 
ihm! Es war gar kein Wasser, das er 
aus dem Glas getrunken hatte, son- 
dern es war sein Mittel zur Zellver- 
kleinerung. Es war das Mittel mit 
seiner Formel! 


Professor Nitro stürzt in den Papıer- 
korb und hat dabei Glück im Un- 
glück. Zwar befindet er sich inmit- 
ten des gigantischsten Müllbergs (er 
hätte den Papierkorb schon längst 
leeren sollen), aber unter all dem 
Dreck muß sich auch die Formel 
des Gegenmittels befinden. Aus 
Gründen der Geheimhaltung hat er 
das Papier zwar zerrissen, aber man 
kann sich ja auf die Suche machen. 
Er irrt nun in dem Papierkorb um- 
her. Und dabei müssen Sie ihm hel- 
fen. Sie können ihn dabei mit dem 
Joystick lenken, über den Abfall 
hüpfen lassen und die Teile der For- 
mel suchen. Aber das ist leichter 
gesagt als getan. Denn in dem Papier- 
korb gibt es einige Sachen, die ihm 


nun als kleines Männlein das Leben 
schwer macht. 

Da befinden sich zum Beispiel Reste 
von Kaugummis, vor denen er sich 
hüten muß. Denn wie klebrig sol- 
che gebrauchten Kaugummis sind, 
weiß jeder, der sie schon mal unbe- 
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dacht weggeworfen hat und dann 
draufgetreten ist. Um so schlimmer 
ist es, wenn man nun nur noch eini- 
ge Zentimeter groß ist und dann an 
solch einem Kaugummi hängen- 
bleibt! 


Aber nicht nur die Kaugummis sind 
für unseren Professor Nitro gefähr- 
lich. Auch Ameisen krabbeln dort 
umher und behindern ihn bei seiner 
Suche. Und dann noch die Fliegen! 
Immer wieder tauchen sie auf und 
umschwirren unseren Gelehrten. 
Außerdem liegen noch kleine Spiral- 
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federn umher. Wenn er da bei seiner 
Suche versehentlich drauftritt, wird 
er von ihnen umherkatapultiert 

und seine Bewegungsrichtung ist 
plötzlich nicht mehr zu kontrollie- 
ren. 

Zum Glück für ihn sind aber auch 
kleine Leitern vorhanden, mit denen 
er dann Hindernisse überwinden 
kann. Und die Leitern kann er auch 
mitnehmen und dann dort aufstel- 
len, wo er sie braucht. 


Dann tropft ab und zu etwas Säure 
in den Papierkorb. Da hilft dem Pro- 
fessor nur ein kleiner Regenschirm, 
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der glücklicherweise säurefest ist. 
Allerdings hält er nur einige Tropfen 
ab, dann löst er sich auf. Denn die 
Säure ist doch zu scharf für Regen- 
schirme. 

Aber gegen die Pfützen aus reiner 
Salzsäure gibt es kein Gegenmnittel. 
Da hilft nur Vorsicht! 

Außerdem liegen im Papierkorb 
noch etliche leere Dosen und ande- 
re Behälter umher. Wenn der Pro- 
fessor da hineinfällt, ist es um ihn 
geschehen. 

Wenn der Professor Hunger verspürt, 
wird ein Brathähnchen angezeigt. 
Dann wird es Zeit, sich im Papier- 
korb auf Nahrungssuche zu begeben. 
Und als Eßbares findet er einige 


abgenagte Apfelüberreste. Die stär- 
ken ihn dann und die Suche kann 
weitergehen. Gegen den Durst kann 
er einige Wassertropfen trinken. 
Der Durst wird durch ein leeres 
Glas symbolisiert. 


Wenn der Professor bei seiner Suche 
nach den Papierschnitzeln auf eine 
kleine Tasche trifft, dann kann er, 
wenn Sie die Feuertaste drücken, 
hineinsehen. Es erscheint nun auf 
dem Bildschirm der Inhalt dieser 
Tasche und zwei Augen (die des 
Professors), die in diese Tasche hin- 
einschauen. Ringförmig sind die Ge- 
genstände angeordnet, die sich in 
der Tasche befinden. Mit dem Joy- 
stick (oder den Tasten bei Keyboard- 
steuerung, die Sie bei Beginn des 
Spieles definieren können) haben 
Sie die Möglichkeit, den Inhalt so 
zu plazieren, daß der Gegenstand, 
den der Professor benutzen soll, zwi- 
schen den Augen erscheint. 

Zu diesem Inhalt in den Taschen ge- 
hören Streichhölzer, Fliegenspray, 
Regenschirm und ein Mittel gegen 
Ameisen. Außerdem ist noch eine 
brennende Kerze zu erkennen, die 
die Zeit symbolisieren soll, die dem 
Professor noch für seine Mission 
verbleibt. 

Außerdem werden noch die Papier- 
schnitzel angezeigt, die der Profes- 
sor bisher zusammengesammelt hat. 
Ist das Papier wieder vollständig zu- 
sammengesetzt, kann er sich dann 
an seine nächste Aufgabe machen 
und das Gegenmittel zusammenbrau- 
en. Dazu geht er dann ins Labor, wo 
seine Chemikalien sich befinden. 


Zuerst muß die Tafel beleuchtet 
werden, wo sich der Zettel mit der 
Formel befindet. Dazu muß der 
Schalter, der das Licht anmacht, 
gefunden werden. Ist der Zettel 
dann sichtbar, benötigt der Profes- 
sor einen Entwickler, der die For- 
mel auf dem Papier lesbar macht 
und die Geheimtinte, die die For- 
mel überdeckt, auflöst. 

Als nächstes wird nun das Gegen- 
mittel zusammengebraut. Dabei ist 
genau die richtige Reihenfolge und 
die richtige Menge zu benutzen 
und in einen Trichter zu schütten. 
Sind dann endlich alle Bestandteile 
zusammengemixt, kann der Pro- 
fessor davon trinken und gewinnt 
seine natürliche Größe wieder. 
Dieses Spiel, das von den Franzosen 
Lamoureux, Burel und Charpy pro- 
grammiert wurde, kann empfohlen 


werden. Es hat eine recht passable 
Grafik. Das Männlein, also der Pro- 
fessor, läßt sich gut und schnell 
lenken, wenn man von einigen Hin- 
dernissen (die Sprungfedern) ein- 
mal absieht. 


Von Infogrames hei ariolasoft 


Leider wurde kein sanftes Scrolling 
programmiert. Jede Szenerie des 
Papierkorbes wird neu aufgebaut. 
Dies geschieht zwar schnell, geht 
man jedoch jedoch sofort wieder 
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zurück, kann der ständige Grafik- 
wechsel stören. 

Die Farbgestaltung ist den Program- 
mierern besonders gut gelungen. 
Daraus leitet sich aber auch gleich- 
zeitig eine kleine Warnung an die 
Besitzer eines Grünmonitors ab. 
Die Übergänge in dem bunten Bild 
sind auf dem monochromen Bild- 
schirm nur schwer zu erkennen. 
Dem Spiel wird dadurch viel von 
seinem Spaß genommen. 

Der Sound, geschrieben von Callet, 
paßt zu diesem Programm, ist nett 
anzuhören und sehr flott. Es scheint, 
als solle ein guter Sound zum Mar- 
kenzeichen französischer Spielpro- 
gramme werden. 

Man mag viel an Kleinigkeiten der 
„Formel“ kritisieren, die originelle 
Idee ist gut. Da letztlich hieraus die 
Spielmotivation entsteht, gilt das 
Urteil „Empfehlenswert“. 


KINETIK 


Lassen Sie sich in eine geheimnisvolle Welt entführen, in der 
die Gesetze der Schwerkraft und der Gravitation nicht mehr gelten. 
Ein Spiel voller Gefahren und Abenteuer: Kinetik. 

Laut Meyers Konversationslexikon ist die Kinetik die Lehre von der 
Bewegung durch Kräfte. Und zu diesen Kräften zählt unter anderem die 
Schwerkraft, so wie wir sie von Geburt an gewohnt sind. Stellen Sie 
sich aber eine Welt vor, wo diese Schwerkraftgesetze nicht mehr gelten 
und wo ganz andere Gesetze der Gravitation gültig sind. In eine 
solche Welt führt uns das Spiel ‚‚Kinetik’’. 


Wenn die Bewegungsgesetze verän- 
dert werden, empfindet der Mensch 


dies als Durcheinander und als Chaos. 


Bei diesem Spiel ist es Ihre Aufgabe, 
in eine solche Welt vorzudringen und 
die gewohnten Gesetze der Kinema- 
tik wiederherzustellen. In den drei- 
undvierzig Zonen auf dem Planeten 
müssen Sie nach den drei Buchsta- 
ben suchen, die zusammengenom- 
men das Schlüsselwort bilden. Und 
wenn Sie dieses Schlüsselwort zu 
dem Kinemator bringen, stellt sich 
das für uns normale Gleichgewicht 
der Kräfte wieder ein und die ge- 
wohnte Schwerkraft wirkt wie im 
übrigen Universum. 

Für diese Mission haben Sie ein sphä- 
risches Raumschiff, ein sogenanntes 
Hydro-Schiff, zur Verfügung. Dieses 
Schiff hält alle denkbaren Gravita- 
tionskräfte aus. Mit diesem Schiff 
können Sie sich in die fremde, ge- 
heimnisvolle und gefährliche Welt 
wagen! Aber seien Sie auf der Hut: 
Denn vor Ihnen haben es auch schon 
andere probiert und die sind ge- 
scheitert. 

Fliegen Sie also los! Aber schon bald 
werden Sie merken, daß Sie mit 


den normalen Joystick-Bewegungen, 
die Sie üblicherweise ausführen, 
Schwierigkeiten haben. Denn statt 
geradeaus zu fliegen, wird Ihr 
Hydro-Gleiter plötzlich im Kreis 
fliegen oder von der gewollten Flug- 
bahn abgelenkt. Oder Sie kommen 
nur ganz, ganz müsam eine Schräge 
hinauf, denn an dieser Stelle ist 
dann die Anziehungskraft auf dieser 
Welt besonders stark ausgeprägt. Je- 
der Screen birgt Überraschungen 
und jedesmal müssen Sie sich wieder 
auf veränderte Bedingungen neu 
einstellen. 


ÜBERALL LAUERN 
GEFAHREN 


Doch die ständig sich verändernden 
Flugbedingungen wären noch nicht 
das Schlimmste. Denn Sie befinden 
sich nicht allein auf dieser Welt. 


Wenn Sie mit diesen in Berührung 
kommen, verlieren Sie einen Teil 
Ihrer Energie, denn diese Wesen 
wollen ihre eigenen Batterien aufla- 
den. Sehen Sie also zu, sich Ihnen 
nicht allzusehr zu nähern! 

Dann gibt esnoch Gwers und Star- 
moebas, die irgendwie an Regen- 
würmer erinnern. Wer jemals im ei- 
genen Garten Unkraut gehackt hat, 
weiß was gemeint ist. Denn die 
Gwers und Starmoebas bewegen 
und krümmen sich genauso, wie es 
die Regenwürmer im Garten tun. 
Nur, daß die Regenwürmer im Gar- 
ten nützlich sind! Das kann man 
von den organischen Lebewesen auf 
Kinetik nicht sagen, im Gegenteil, 
denn auch Sie entziehen Ihrem 
Hydro-Gleiter Energie, und davon 
haben Sie nicht allzuviel! Beide Sor- 
ten versuchen mit aller Macht, an 
Ihren Gleiter heranzukommen, um 
Ihren Flug zu behindern. 

Ferner sind noch die roten und gel- 
ben Phosphat-Blumen zu beachten. 
Sie sind ganz hübsch anzusehen, doch 
auch sie sind gefährlich. Vermeiden 
ee auch mit diesen jeglichen Kon- 
takt. 

Auch eine intelligente Lebensform 
gibt es auf diesem sonderbaren Pla- 
neten. Ein ‚Dieb‘ wird, falls Sie 
ihn berühren, einen Gegenstand Ih- 
rer Ausrüstung, den Sie gerade bei 
sich tragen, wegnehmen und ihn 
wieder an seinen Ursprungsort zu- 
rückbringen. Wer der Dieb ist und 
wie dieser aussieht, müssen Sie 
schon selbst herausfinden. 


IHRE AUSRÜSTUNG 
KANN SICH SEHEN LASSEN 


Doch so ganz wehrlos sind Sie den 
Gefahren nicht ausgeliefert. Denn 
Ihre Ausrüstung kann sich wirklich 
sehen lassen. Nicht nur, daß Sie ein 
Raumschiff haben, das die Wechsel- 
wirkung der unterschiedlichen Gra- 
vitations- und Anziehungskräfte spie- 
lend wegsteckt. Sie haben darüber 
hinaus noch die Möglichkeit, sich 
verschiedene Waffen zuzulegen. Da- 
zu reicht es, wenn Sie mit Ihrem 
Hydro-Gleiter den jeweilig gewünsch- 
ten Gegenstand überfliegen. 

Ziemlich am Anfang haben Sie die 
Möglichkeit, einen Chemikalien- 
sprüher aufzunehmen, sozusagen 
eine chemische Keule. Diese chemi- 
sche Keule können Sie gegen nahe- 
zu alles einsetzen, was sich Ihnen in 
den Weg stellt. Damit haben Sie die 


Überall lauern Gefahren, die Sie noch Möglichkeit, sich Ihren Weg freizu- 


zusätzlich gefährden! 

Da sind zuerst einmal die länglichen 
Bälle, Diskoide und Klingen. Das 
sind mechanische Wesen, die ständig 
herumfliegen und Sie verfolgen. 
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sprühen, auch bestimmte Wände lö- 
sich beim Einsatz dieser Waffe 
auf. 

Wenn Sie den Deflektor-Schild auf- 
nehmen, sind Sie gegen alle Ein- 


wohner der fremden Welt geschützt 
nur gegen den Dieb hilft er leider 
nicht. 

Sind Sie im Besitz des Antigravita- 
tations-Triebwerk, wird für Ihren 
Sphären-Gleiter die gewohnte 
Schwerkraft gültig. Und das Lenken 
geht, teilweise jedenfalls, wieder 
leichter. 

Noch besser wirkt das E.Z.-Kon- 
troll-Triebwerk, denn dadurch wird 
nicht nur die Schwerkraft norma- 
lisiert, sondern auch die Gravita- 
tionskräfte sowie die Reibung und 
der Aufprall wirken normal. Also 
versuchen Sie so schnell wie möglich, 
sich in den Besitz dieses Triebwer- 
kes zu bringen. 

Sie können sich auch mit Ihrem 
Raumschiff in jede beliebige Zone 
teleportieren, wenn Sie das Teleport- 
System besitzen. Nur in die Zentral- 
zone geht das nicht. Nach dem Auf- 
ruf des Teleport-Systems ist ein Code 
einzugeben, der dem gewünschten 
Ziel entspricht. Ist der eingegebene 
Code richtig, werden Sie Ihren Glei- 
ter in der gewünschten Zone wieder- 
finden, wenn nicht, bleiben Sie dort, 
wo Sie sich gerade aufgehalten ha- 
ben. Das Teleport-System können 
Sie allerdings nur einmal im Verlauf 
eines Spieles aufrufen. 


FAZIT: 
EIN EMPFEHLENSWERTES SPIEL 


Dieses Spiel kann man uneinge- 
schränkt empfehlen. Neben einer 
recht gut anzusehenden Grafik, die 
allerdings so recht nur auf einem 
Color-Monitor zur Wirkung kommt, 
ist auch die Spielidee originell und 
hebt sich wohltuend von den Baller- 
spielen, die uns so in die Redaktion 
geflattert kommen, ab. 


[Bedienung | 


Von Firebird hei ariolasoft 


Kinetik kann man wahlweise mit 

der Tastatur oder dem Joystick spie- 
len, wobei die Joystick-Steuerung 
allerdings vorzuziehen ist. 

Bis auf einige Ping-Ping-Geräusche ist 
kein Sound vorhanden. Dies fällt 
aber während des Spielens überhaupt 
nicht auf, denn welcher Hydro-Glei- 
ter hat schon eine eingebaute 
Stereo-Anlage? 

Auch die Motivation zum Spielen ist 
recht hoch. Nach den anfänglichen 
Schwierigkeiten, die bis zur Einge- 
wöhnung aber bei jedem neuen Spiel 
vorkommen, war ich beim Testen des 
Spieles immer wieder gern bereit, 

es noch einmal zu versuchen, wenn 
der CPC meldete: Game over! 
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LONPUTER DIWISION 


Tempelhofer Damm 120 
1000 Berlin 42 
Am U-Bht, Tempelhot 
Tel: 752 2091 


Hardware 
Software 
Zubehör 
Beratung 
Literatur 


6078 Neu-Isenburg 


Modulare Software 
für alle Schneider Rechner 
CPC 464, CPC 664, CPC 6128 
Textverarbeitung ... Kassenbuch- 
führung ... Rechnungsschreibung 
Kundenadreßverwaltung ... Mail- 
merge ... Hotelreservierung 


hard-&software 


Ch. Schebesta & Partner 
Frankfurter Str. 70 
6078 Neu-Isenburg 

Telefon 06102/37549 


6090 Rüsselsheim 


Computer u. Bürotechnik 
Dipl.-Ing. Neuderth 
Frankfurter Str. 23/Ecke Friedenspl. 


6090 Rüsselsheim 
Tel. 06142-68455 


7030 Böblingen 


Partner führender 
Micro-Computermarken 


So, 
ua, 


COMPUTER 
CENTER 
Norbert Hlawinka 
Sindelfinger Allee 1, 
7030 Böblingen, Tel. 0 70 31/22 60 15 
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7054 Korb 
IS RICHARD 


HEINRICH 


& SOHN N 


Computer + Software 
Winnender Str. 25, 7054 Korb 
Tel. 07151/325 13 


7700 Singen 


Ihr Fachhändler 


Marianne Tröndle 
Lindenstr. 3, 7700 Singen 
(Hohentwiel), Tel. 077 31/644 33 


7700 Singen 


Ihr kompetenter, autorisierter 
© SCHNEIDER-Fachhändler 


Srhellkammer 


Hard- u. Software, Peripherie, 
Literatur 
Fachkundige Beratung - kompletter 
Service 
7700 Singen, Freibühlstr. 21-25 
Tel. 07731/82020 


7980 Ravensburg 


expert 
Computer Grahle 
Eisenbahnstr. 33 
7980 Ravensburg 
Telefon 0751/15955 


8720 Schweinfurt 


Schneider PC 1512 | 
Schneider Zubehör ! 
Staubschutzhauben ! 
| 
| 
| 


Anrufbeantworter 
Funktelefone 
Designtelefone 
Gesamtkatalog 3,— DM 


B. V. Steponaitis, 
Obere Straße 30, 8720 Schweinfurt 


SSV=-S$SV 


SOMMER SCHLUSS VERKAUF 


SUPER SOFTWARE 
SPOTTBILLIG! 


Wir bieten an aus 
Restbeständen: 
CPC-Kassetten 

3 Softboxen jetzt DM 30! 
5 Softboxen jetzt DM 40! 
Nur solange Vorrat reicht! 


Kein Umtausch — 
Keine Auswahl — 
Keine Rückgabe möglich! 


Falls vergriffen — Geld zurück! 
Bestellschein auf Seite 49 


